diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2015-01-30 12:33:01 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-03-22 20:11:30 +0000 |
| commit | 7690e1d17f0258b4184f46c51d0eb32db3115659 (patch) | |
| tree | 852f380ee264bc965c41a212be809a96ec3ba17c /src/Text | |
| parent | 9ca34cc9a92eff7002e869378bac9e436c3decef (diff) | |
| download | pandoc-7690e1d17f0258b4184f46c51d0eb32db3115659.tar.gz | |
Generalise signature of addWarning
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 592f377c6..3e9d559dc 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -1239,7 +1239,7 @@ applyMacros' target = do else return target -- | Append a warning to the log. -addWarning :: Maybe SourcePos -> String -> Parser [Char] ParserState () +addWarning :: (Stream s m c) => Maybe SourcePos -> String -> ParserT s ParserState m () addWarning mbpos msg = updateState $ \st -> st{ stateWarnings = (msg ++ maybe "" (\pos -> " " ++ show pos) mbpos) : |