Generalise signature of addWarning
commit7690e1d17f0258b4184f46c51d0eb32db3115659
authorMatthew Pickering <matthewtpickering@gmail.com>
dateFri 30 Jan 2015, 12:33 (12 years ago)
parent9ca34cc
src/Text/Pandoc/Parsing.hs+1−1
@@ -1239,7 +1239,7 @@ applyMacros' target = do
12391239 else return target
12401240
12411241-- | Append a warning to the log.
1242−addWarning :: Maybe SourcePos -> String -> Parser [Char] ParserState ()
1242+addWarning :: (Stream s m c) => Maybe SourcePos -> String -> ParserT s ParserState m ()
12431243addWarning mbpos msg =
12441244 updateState $ \st -> st{
12451245 stateWarnings = (msg ++ maybe "" (\pos -> " " ++ show pos) mbpos) :