diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-12-10 11:40:14 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:41 +0100 |
| commit | 2b24c6ff3aa3b6a0b1778be10595b691c21bc70f (patch) | |
| tree | d0a26b234e42393079dd4ede1c7f6dacc39c676c /src/Text/Pandoc | |
| parent | 61335074b260456b0fbd93e69764771033c6e1dd (diff) | |
| download | pandoc-2b24c6ff3aa3b6a0b1778be10595b691c21bc70f.tar.gz | |
Shared: put err into MonadIO.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 4420199f2..3df016996 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -999,8 +999,8 @@ openURL u -- Error reporting -- -err :: Int -> String -> IO a -err exitCode msg = do +err :: MonadIO m => Int -> String -> m a +err exitCode msg = liftIO $ do UTF8.hPutStrLn stderr msg exitWith $ ExitFailure exitCode return undefined |