git.iko.soy/typeable/pandoc
on master help sign in
Restore "Fetching..." message with openURL if --verbose.
61d3376John MacFarlane
src/Text/Pandoc/Class.hs+3−1
compare with master
unifiedsplit
@@ -229,7 +229,9 @@ instance PandocMonad PandocIO where
229 getCurrentTimeZone = liftIO IO.getCurrentTimeZone
229 getCurrentTimeZone = liftIO IO.getCurrentTimeZone
230 newStdGen = liftIO IO.newStdGen
230 newStdGen = liftIO IO.newStdGen
231 newUniqueHash = hashUnique <$> (liftIO IO.newUnique)
231 newUniqueHash = hashUnique <$> (liftIO IO.newUnique)
232+ openURL u = do
233+ report $ Fetching u
232− openURL u = liftIOError IO.openURL u
234+ liftIOError IO.openURL u
233 readFileLazy s = liftIOError BL.readFile s
235 readFileLazy s = liftIOError BL.readFile s
234 readFileStrict s = liftIOError B.readFile s
236 readFileStrict s = liftIOError B.readFile s
235 readDataFile mfp fname = liftIOError (IO.readDataFile mfp) fname
237 readDataFile mfp fname = liftIOError (IO.readDataFile mfp) fname