git.iko.soy/typeable/pandoc
on master help sign in
Tighten up HasQuoteContext instance in HTML reader.
547c329John MacFarlane
src/Text/Pandoc/Readers/HTML.hs+1−1
compare with master
unifiedsplit
@@ -1092,7 +1092,7 @@ instance HasHeaderMap HTMLState where
1092
1092
1093-- This signature should be more general
1093-- This signature should be more general
1094-- MonadReader HTMLLocal m => HasQuoteContext st m
1094-- MonadReader HTMLLocal m => HasQuoteContext st m
1095−instance PandocMonad m => HasQuoteContext st (ReaderT HTMLLocal m) where
1095+instance PandocMonad m => HasQuoteContext HTMLState (ReaderT HTMLLocal m) where
1096 getQuoteContext = asks quoteContext
1096 getQuoteContext = asks quoteContext
1097 withQuoteContext q = local (\s -> s{quoteContext = q})
1097 withQuoteContext q = local (\s -> s{quoteContext = q})
1098
1098