From 49502b9a02edf03ca9cc03f389ea0595383a40dd Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 10 Dec 2016 11:16:39 +0100
Subject: Added a type signature

---
 pandoc.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'pandoc.hs')

diff --git a/pandoc.hs b/pandoc.hs
index 492d49b10..18d36b223 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1439,7 +1439,8 @@ convertWithOpts opts args = do
         mapM_ (warn . ("Ignoring: " ++)) xs
         liftIO $ B.readFile x
 
-  let runIO' f = do
+  let runIO' :: PandocIO a -> IO a
+      runIO' f = do
         (res, warnings) <- runIOorExplode $ do
                              x <- f
                              ws <- getWarnings
-- 
cgit v1.2.3