diff options
author | Albert Krewinkel <albert@zeitkraut.de> | 2021-05-25 17:49:48 +0200 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2021-05-25 11:52:49 -0700 |
commit | 105a50569be6d2c1b37cc290abcbfbae1cd0fd1e (patch) | |
tree | 1f34ec197a2f9936bf546e88918edd64f19ed33f /src/Text/Pandoc/Readers/Docx | |
parent | bb2530caa414234f00e7c89ef18a538708b2297c (diff) | |
download | pandoc-105a50569be6d2c1b37cc290abcbfbae1cd0fd1e.tar.gz |
Allow compilation with base 4.15
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx')
-rw-r--r-- | src/Text/Pandoc/Readers/Docx/Combine.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Combine.hs b/src/Text/Pandoc/Readers/Docx/Combine.hs index 7c6d01769..6e4faa639 100644 --- a/src/Text/Pandoc/Readers/Docx/Combine.hs +++ b/src/Text/Pandoc/Readers/Docx/Combine.hs @@ -61,7 +61,7 @@ import Data.List import Data.Bifunctor import Data.Sequence ( ViewL (..), ViewR (..), viewl, viewr, spanr, spanl , (><), (|>) ) -import Text.Pandoc.Builder +import Text.Pandoc.Builder as B data Modifier a = Modifier (a -> a) | AttrModifier (Attr -> a -> a) Attr @@ -116,12 +116,12 @@ ilModifierAndInnards ils = case viewl $ unMany ils of inlinesL :: Inlines -> (Inlines, Inlines) inlinesL ils = case viewl $ unMany ils of - (s :< sq) -> (singleton s, Many sq) + (s :< sq) -> (B.singleton s, Many sq) _ -> (mempty, ils) inlinesR :: Inlines -> (Inlines, Inlines) inlinesR ils = case viewr $ unMany ils of - (sq :> s) -> (Many sq, singleton s) + (sq :> s) -> (Many sq, B.singleton s) _ -> (ils, mempty) combineInlines :: Inlines -> Inlines -> Inlines |