diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-03-17 22:00:55 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-03-17 22:00:55 -0700 |
| commit | dfa1dc164a15389e00c86b8d97d71646827a74cf (patch) | |
| tree | 882544c7e6e475d2e06988c3fedd54682a20764d /src/Text/Pandoc/Readers/Docx | |
| parent | 73f9ba4a008b564ab901efb0bed325e4988df40d (diff) | |
| download | pandoc-dfa1dc164a15389e00c86b8d97d71646827a74cf.tar.gz | |
hlint fixes.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Parse.hs | 4 |
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 |