diff options
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx/Combine.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Combine.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Combine.hs b/src/Text/Pandoc/Readers/Docx/Combine.hs index ebaf7a7f6..c90ab7428 100644 --- a/src/Text/Pandoc/Readers/Docx/Combine.hs +++ b/src/Text/Pandoc/Readers/Docx/Combine.hs @@ -57,7 +57,7 @@ module Text.Pandoc.Readers.Docx.Combine ( smushInlines ) where -import Data.List +import qualified Data.List as L import Data.Bifunctor import Data.Sequence ( ViewL (..), ViewR (..), viewl, viewr, spanr, spanl , (><), (|>) ) @@ -135,9 +135,9 @@ combineSingletonInlines :: Inlines -> Inlines -> Inlines combineSingletonInlines x y = let (xfs, xs) = unstackInlines x (yfs, ys) = unstackInlines y - shared = xfs `intersect` yfs - x_remaining = xfs \\ shared - y_remaining = yfs \\ shared + shared = xfs `L.intersect` yfs + x_remaining = xfs L.\\ shared + y_remaining = yfs L.\\ shared x_rem_attr = filter isAttrModifier x_remaining y_rem_attr = filter isAttrModifier y_remaining in @@ -182,7 +182,7 @@ isAttrModifier _ = False smushInlines :: [Inlines] -> Inlines smushInlines xs = combineInlines xs' mempty - where xs' = foldl' combineInlines mempty xs + where xs' = L.foldl' combineInlines mempty xs smushBlocks :: [Blocks] -> Blocks -smushBlocks xs = foldl' combineBlocks mempty xs +smushBlocks xs = L.foldl' combineBlocks mempty xs |