From 7fc804ed22b3dad2e7f5c365a1d9a1beceb0c983 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 9 Sep 2012 18:12:18 -0700
Subject: [PATCH] Parsing: Generalized type of withQuoteContext.

---
 src/Text/Pandoc/Parsing.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index 50691f409..d677f7a16 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -811,8 +811,8 @@ quoted :: Parser [Char] ParserState Inline
 quoted inlineParser = doubleQuoted inlineParser <|> singleQuoted inlineParser
 
 withQuoteContext :: QuoteContext
-                 -> Parser [Char] ParserState a
-                 -> Parser [Char] ParserState a
+                 -> Parser [tok] ParserState a
+                 -> Parser [tok] ParserState a
 withQuoteContext context parser = do
   oldState <- getState
   let oldQuoteContext = stateQuoteContext oldState