diff options
Diffstat (limited to 'src/Text/Pandoc/ParserCombinators.hs')
-rw-r--r-- | src/Text/Pandoc/ParserCombinators.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/ParserCombinators.hs b/src/Text/Pandoc/ParserCombinators.hs index c49845597..189f97182 100644 --- a/src/Text/Pandoc/ParserCombinators.hs +++ b/src/Text/Pandoc/ParserCombinators.hs @@ -38,7 +38,7 @@ module Text.Pandoc.ParserCombinators ( blanklines, enclosed, stringAnyCase, - parseFromStr, + parseFromString, lineClump, charsInBalanced ) where @@ -108,8 +108,8 @@ stringAnyCase (x:xs) = try (do return (firstChar:rest)) -- | Parse contents of 'str' using 'parser' and return result. -parseFromStr :: GenParser tok st a -> [tok] -> GenParser tok st a -parseFromStr parser str = try $ do +parseFromString :: GenParser tok st a -> [tok] -> GenParser tok st a +parseFromString parser str = try $ do oldInput <- getInput setInput str result <- parser |