diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-03-04 13:03:41 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-03-04 13:03:41 +0100 |
| commit | e256c8ce1778ff6fbb2e8d59556d48fb3c53393d (patch) | |
| tree | 3527320cd3fd205a00a733ddbe46917638253034 /src/Text/Pandoc/Readers/Docx/Util.hs | |
| parent | 0edfbf1478950d645ece19ced0156771ba16ebb6 (diff) | |
Stylish-haskell automatic formatting changes.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx/Util.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Util.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Util.hs b/src/Text/Pandoc/Readers/Docx/Util.hs index 6646e5b7f..8415dbf68 100644 --- a/src/Text/Pandoc/Readers/Docx/Util.hs +++ b/src/Text/Pandoc/Readers/Docx/Util.hs @@ -8,8 +8,8 @@ module Text.Pandoc.Readers.Docx.Util ( , findAttrByName ) where -import Text.XML.Light import Data.Maybe (mapMaybe) +import Text.XML.Light type NameSpaces = [(String, String)] @@ -18,7 +18,7 @@ elemToNameSpaces = mapMaybe attrToNSPair . elAttribs attrToNSPair :: Attr -> Maybe (String, String) attrToNSPair (Attr (QName s _ (Just "xmlns")) val) = Just (s, val) -attrToNSPair _ = Nothing +attrToNSPair _ = Nothing elemName :: NameSpaces -> String -> String -> QName elemName ns prefix name = |