From dfa1dc164a15389e00c86b8d97d71646827a74cf Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 17 Mar 2018 22:00:55 -0700 Subject: hlint fixes. --- src/Text/Pandoc/Readers/Docx/Parse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Readers/Docx/Parse.hs') diff --git a/src/Text/Pandoc/Readers/Docx/Parse.hs b/src/Text/Pandoc/Readers/Docx/Parse.hs index dcf2e0493..d6226dfab 100644 --- a/src/Text/Pandoc/Readers/Docx/Parse.hs +++ b/src/Text/Pandoc/Readers/Docx/Parse.hs @@ -136,9 +136,9 @@ unwrap :: NameSpaces -> Content -> [Content] unwrap ns (Elem element) | isElem ns "w" "sdt" element , Just sdtContent <- findChildByName ns "w" "sdtContent" element - = concatMap (unwrap ns) $ map Elem $ elChildren sdtContent + = concatMap ((unwrap ns) . Elem) (elChildren sdtContent) | isElem ns "w" "smartTag" element - = concatMap (unwrap ns) $ map Elem $ elChildren element + = concatMap ((unwrap ns) . Elem) (elChildren element) unwrap _ content = [content] unwrapChild :: NameSpaces -> Content -> Content -- cgit v1.2.3