diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2015-01-30 12:33:01 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-02-18 12:50:21 +0000 |
| commit | dc450d80a124033454f401b3d1f357ec036eab9d (patch) | |
| tree | 754047132bcb419e1a3511f8f0febe4e931dd1c9 /src/Text/Pandoc | |
| parent | d4ab579dc3f4b13be0a8ac2024467802a5f9928e (diff) | |
| download | pandoc-dc450d80a124033454f401b3d1f357ec036eab9d.tar.gz | |
Generalise signature of addWarning
Diffstat (limited to 'src/Text/Pandoc')
| -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) : |