diff options
| -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 |