aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Docx
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-03-17 22:00:55 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2018-03-17 22:00:55 -0700
commitdfa1dc164a15389e00c86b8d97d71646827a74cf (patch)
tree882544c7e6e475d2e06988c3fedd54682a20764d /src/Text/Pandoc/Readers/Docx
parent73f9ba4a008b564ab901efb0bed325e4988df40d (diff)
downloadpandoc-dfa1dc164a15389e00c86b8d97d71646827a74cf.tar.gz
hlint fixes.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx')
-rw-r--r--src/Text/Pandoc/Readers/Docx/Parse.hs4
1 files changed, 2 insertions, 2 deletions
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