From 16f28ef5e945f3be14e05afb7d91f8adca18e49a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 20 Apr 2023 13:33:02 -0700 Subject: Remove redundant line in pattern match. --- src/Text/Pandoc/Writers/EPUB.hs | 1 - 1 file changed, 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 7faad746e..0bdc4c2bd 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -251,7 +251,6 @@ addMetadataFromXML e@(Element (QName name _ (Just "dc")) attrs _ _) md | name == "description" = md { epubDescription = Just $ strContent e } | name == "type" = md { epubType = Just $ strContent e } | name == "format" = md { epubFormat = Just $ strContent e } - | name == "type" = md { epubType = Just $ strContent e } | name == "publisher" = md { epubPublisher = Just $ strContent e } | name == "source" = md { epubSource = Just $ strContent e } | name == "relation" = md { epubRelation = Just $ strContent e } -- cgit v1.2.3