diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-10-23 23:01:37 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-23 23:01:37 -0700 |
| commit | ecb5475a2acc861d1c8201f29a024d57b44663cb (patch) | |
| tree | bc3d4880de98b65863d4e809baef26f85f7360bd /src | |
| parent | fda0c0119f415c6df95b20730650388c0471241d (diff) | |
| download | pandoc-ecb5475a2acc861d1c8201f29a024d57b44663cb.tar.gz | |
Back to using [WARNING] and [INFO] to mark messages.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Class.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs index bee529bd8..227505a23 100644 --- a/src/Text/Pandoc/Class.hs +++ b/src/Text/Pandoc/Class.hs @@ -513,9 +513,7 @@ instance PandocMonad PandocIO where putCommonState x = PandocIO $ lift $ put x logOutput msg = liftIO $ do UTF8.hPutStr stderr $ - case messageVerbosity msg of - WARNING -> "!! " - _ -> ".. " + "[" ++ show (messageVerbosity msg) ++ "] " alertIndent $ lines $ showLogMessage msg alertIndent :: [String] -> IO () @@ -523,7 +521,7 @@ alertIndent [] = return () alertIndent (l:ls) = do UTF8.hPutStrLn stderr l mapM_ go ls - where go l' = do UTF8.hPutStr stderr " " + where go l' = do UTF8.hPutStr stderr " " UTF8.hPutStrLn stderr l' -- | Specialized version of parseURIReference that disallows |