From a578a490ee0c73360ea2b98b4d4cc39410a571e0 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 20 Jun 2013 20:28:50 -0700 Subject: Parsing: Generalized state type on readWith. --- src/Text/Pandoc/Parsing.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Parsing.hs') diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 72ae828f0..71b16b7ca 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -764,9 +764,9 @@ gridTableFooter = blanklines --- -- | Parse a string with a given parser and state. -readWith :: Parser [Char] ParserState a -- ^ parser - -> ParserState -- ^ initial state - -> [Char] -- ^ input +readWith :: Parser [Char] st a -- ^ parser + -> st -- ^ initial state + -> [Char] -- ^ input -> a readWith parser state input = case runParser parser state "source" input of -- cgit v1.2.3