From 2b24c6ff3aa3b6a0b1778be10595b691c21bc70f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 10 Dec 2016 11:40:14 +0100
Subject: Shared:  put err into MonadIO.

---
 src/Text/Pandoc/Shared.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3