Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Added a type signature

Browse source
This commit is contained in:
John MacFarlane 2016-12-10 11:16:39 +01:00
parent 1bdf23c697
commit 49502b9a02
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
pandoc.hs
View file

@ -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