aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs b/src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs
index 796026843..6949da9d8 100644
--- a/src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs
+++ b/src/Text/Pandoc/Readers/Odt/Generic/XMLConverter.hs
@@ -390,7 +390,7 @@ filterChildrenName' :: (NameSpaceID nsID)
filterChildrenName' nsID f = getCurrentElement
>>> arr XML.elChildren
>>> iterateS (keepingTheValue (elemNameMatches nsID f))
- >>> arr (catMaybes . fmap (uncurry $ bool Nothing . Just))
+ >>> arr (map fst . filter snd)
--------------------------------------------------------------------------------
-- Attributes