diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 15:44:33 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 15:44:33 +0100 |
| commit | b246e8e9af10437e5850d533815bcf708a8da000 (patch) | |
| tree | ee4b7e0616d583883660af3bc996a717ede8c8bf | |
| parent | 3c427fc17d53a564305aadde015dd2f048d9ff71 (diff) | |
| download | pandoc-b246e8e9af10437e5850d533815bcf708a8da000.tar.gz | |
Revert "Refined constraint for HasQuoteContext instance."
This reverts commit 3c427fc17d53a564305aadde015dd2f048d9ff71.
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 488b75e18..400d07f2a 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -960,7 +960,7 @@ class HasQuoteContext st m where getQuoteContext :: (Stream s m t) => ParsecT s st m QuoteContext withQuoteContext :: QuoteContext -> ParsecT s st m a -> ParsecT s st m a -instance PandocMonad m => HasQuoteContext ParserState m where +instance Monad m => HasQuoteContext ParserState m where getQuoteContext = stateQuoteContext <$> getState withQuoteContext context parser = do oldState <- getState |