diff options
Diffstat (limited to 'src/Text/Pandoc/Readers/ODT/Generic/XMLConverter.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/ODT/Generic/XMLConverter.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/ODT/Generic/XMLConverter.hs b/src/Text/Pandoc/Readers/ODT/Generic/XMLConverter.hs index f5bd843ca..727ec3166 100644 --- a/src/Text/Pandoc/Readers/ODT/Generic/XMLConverter.hs +++ b/src/Text/Pandoc/Readers/ODT/Generic/XMLConverter.hs @@ -64,7 +64,7 @@ import qualified Data.Map as M import Data.Text (Text) import Data.Default import Data.Maybe -import Data.List (foldl') +import qualified Data.List as L import qualified Data.List.NonEmpty as NonEmpty import Data.List.NonEmpty (NonEmpty(..)) @@ -298,7 +298,7 @@ readNSattributes = fromState $ \state -> maybe (state, failEmpty ) => XMLConverterState nsID extraState -> Maybe (XMLConverterState nsID extraState) extractNSAttrs startState - = foldl' (\state d -> state >>= addNS d) + = L.foldl' (\state d -> state >>= addNS d) (Just startState) nsAttribs where nsAttribs = mapMaybe readNSattr (XML.elAttribs element) |