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

Restore "Fetching..." message with openURL if --verbose.

Browse source
This commit is contained in:
John MacFarlane 2017-02-23 16:24:20 +01:00
parent e08e93e844
commit 61d3376a45
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Class.hs
View file

@ -229,7 +229,9 @@ instance PandocMonad PandocIO where
getCurrentTimeZone = liftIO IO.getCurrentTimeZone
newStdGen = liftIO IO.newStdGen
newUniqueHash = hashUnique <$> (liftIO IO.newUnique)
openURL u = liftIOError IO.openURL u
openURL u = do
report $ Fetching u
liftIOError IO.openURL u
readFileLazy s = liftIOError BL.readFile s
readFileStrict s = liftIOError B.readFile s
readDataFile mfp fname = liftIOError (IO.readDataFile mfp) fname