@@ -1,4 +1,3 @@
1−
21{-# LANGUAGE FlexibleInstances #-}
32{-# LANGUAGE TupleSections #-}
43{-
@@ -45,7 +44,6 @@ import qualified Control.Category as Cat
4544import Control.Monad
4645
4746import Data.Foldable
48−import Data.Monoid
4947
5048import Text.Pandoc.Readers.Odt.Arrows.Utils
5149import Text.Pandoc.Readers.Odt.Generic.Fallible
@@ -131,7 +129,7 @@ withSubStateF' unlift a = ArrowState go
131129-- and one with any function.
132130foldS :: (Foldable f, Monoid m) => ArrowState s x m -> ArrowState s (f x) m
133131foldS a = ArrowState $ \(s,f) -> foldr a' (s,mempty) f
134− where a' x (s',m) = second (m <>) $ runArrowState a (s',x)
132+ where a' x (s',m) = second (mappend m) $ runArrowState a (s',x)
135133
136134-- | Fold a state arrow through something 'Foldable'. Collect the results in a
137135-- 'MonadPlus'.