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: [PATCH] Added a type signature
---
pandoc.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
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