diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 15:51:49 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-20 15:51:49 +0100 |
| commit | 547c32939b1dc6553c2cfb2d9893c2a536a77fb7 (patch) | |
| tree | 2a91d582bac609fbce72c4bb00e2ac6025a8b26d | |
| parent | b246e8e9af10437e5850d533815bcf708a8da000 (diff) | |
| download | pandoc-547c32939b1dc6553c2cfb2d9893c2a536a77fb7.tar.gz | |
Tighten up HasQuoteContext instance in HTML reader.
We constrain it to the state used in the HTML reader.
Otherwise we can get overlap with the general instance
for ParserState m.
| -rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index 6b571fca5..f02f1a1d4 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -1092,7 +1092,7 @@ instance HasHeaderMap HTMLState where -- This signature should be more general -- MonadReader HTMLLocal m => HasQuoteContext st m -instance PandocMonad m => HasQuoteContext st (ReaderT HTMLLocal m) where +instance PandocMonad m => HasQuoteContext HTMLState (ReaderT HTMLLocal m) where getQuoteContext = asks quoteContext withQuoteContext q = local (\s -> s{quoteContext = q}) |