Restore "Fetching..." message with openURL if --verbose.
commit61d3376a4598b89f5ac1329ca215374ec358be3c
authorJohn MacFarlane <jgm@berkeley.edu>
dateThu 23 Feb 2017, 16:24 (10 years ago)
parente08e93e
src/Text/Pandoc/Class.hs+3−1
@@ -229,7 +229,9 @@ instance PandocMonad PandocIO where
229229 getCurrentTimeZone = liftIO IO.getCurrentTimeZone
230230 newStdGen = liftIO IO.newStdGen
231231 newUniqueHash = hashUnique <$> (liftIO IO.newUnique)
232− openURL u = liftIOError IO.openURL u
232+ openURL u = do
233+ report $ Fetching u
234+ liftIOError IO.openURL u
233235 readFileLazy s = liftIOError BL.readFile s
234236 readFileStrict s = liftIOError B.readFile s
235237 readDataFile mfp fname = liftIOError (IO.readDataFile mfp) fname