Fix warning for older GHC versions.
commit47e2719cc3e18a6216c886b8ab7166f48bfe457f
authorJohn MacFarlane <jgm@berkeley.edu>
dateSat 28 Oct 2017, 09:56 (9 years ago)
parentb39f782
src/Text/Pandoc/Readers/Docx/Parse.hs+1−1
@@ -106,7 +106,7 @@ eitherToD (Right b) = return b
106106eitherToD (Left _) = throwError DocxError
107107
108108concatMapM :: (Monad m) => (a -> m [b]) -> [a] -> m [b]
109−concatMapM f xs = fmap concat (mapM f xs)
109+concatMapM f xs = liftM concat (mapM f xs)
110110
111111
112112-- This is similar to `mapMaybe`: it maps a function returning the D