diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/OOXML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/OOXML.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/OOXML.hs b/src/Text/Pandoc/Writers/OOXML.hs index f48d27bd6..aa4979653 100644 --- a/src/Text/Pandoc/Writers/OOXML.hs +++ b/src/Text/Pandoc/Writers/OOXML.hs @@ -76,12 +76,12 @@ parseXml refArchive distArchive relpath = Nothing -> fail $ relpath ++ " corrupt in reference file" Just d -> return d --- Copied from Util +-- Copied from Util attrToNSPair :: XML.Attr -> Maybe (String, String) attrToNSPair (XML.Attr (QName s _ (Just "xmlns")) val) = Just (s, val) attrToNSPair _ = Nothing - + elemToNameSpaces :: Element -> NameSpaces elemToNameSpaces = mapMaybe attrToNSPair . elAttribs |