diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-07-15 11:59:06 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-07-15 12:02:37 -0700 |
| commit | 17defd5004cec576a1b481b76c59545067e68663 (patch) | |
| tree | b949f69fba2b9286d27d4c789452cbda35511a98 | |
| parent | 2f54de7cc4596ae54c1918229213f6ce590736cb (diff) | |
| download | pandoc-17defd5004cec576a1b481b76c59545067e68663.tar.gz | |
Use liftM since otherwise Functor type constraint needen in ghc 7.8.
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 59aae060b..f248b2514 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -871,7 +871,7 @@ readWithM :: (Monad m) -> String -- ^ input -> m (Either PandocError a) readWithM parser state input = - mapLeft (ParsecError input) <$> runParserT parser state "source" input + mapLeft (ParsecError input) `liftM` runParserT parser state "source" input -- | Parse a string with a given parser and state |