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 /src | |
| 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.
Diffstat (limited to 'src')
| -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}) |