Parsing: Generalized type of withQuoteContext.

2012-09-09 18:12:18 -07:00 · 2012-09-09 18:12:18 -07:00 · 7fc804ed22
commit 7fc804ed22
parent 204ee87803
1 changed files with 2 additions and 2 deletions
--- 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