From a578a490ee0c73360ea2b98b4d4cc39410a571e0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 20 Jun 2013 20:28:50 -0700
Subject: [PATCH] Parsing: Generalized state type on readWith.
---
src/Text/Pandoc/Parsing.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
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