From 547c32939b1dc6553c2cfb2d9893c2a536a77fb7 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 20 Feb 2017 15:51:49 +0100 Subject: 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. --- src/Text/Pandoc/Readers/HTML.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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}) -- cgit v1.2.3