@@ -1239,7 +1239,7 @@ applyMacros' target = do
1239 else return target
1239 else return target
1241-- | Append a warning to the log.
1241-- | 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 ()
1243addWarning mbpos msg =
1243addWarning mbpos msg =
1244 updateState $ \st -> st{
1244 updateState $ \st -> st{
1245 stateWarnings = (msg ++ maybe "" (\pos -> " " ++ show pos) mbpos) :
1245 stateWarnings = (msg ++ maybe "" (\pos -> " " ++ show pos) mbpos) :