aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2016-12-10 11:40:14 +0100
committerJohn MacFarlane <jgm@berkeley.edu>2017-01-25 17:07:41 +0100
commit2b24c6ff3aa3b6a0b1778be10595b691c21bc70f (patch)
treed0a26b234e42393079dd4ede1c7f6dacc39c676c /src/Text/Pandoc
parent61335074b260456b0fbd93e69764771033c6e1dd (diff)
downloadpandoc-2b24c6ff3aa3b6a0b1778be10595b691c21bc70f.tar.gz
Shared: put err into MonadIO.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Shared.hs4
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