diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-02-23 16:24:20 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-02-23 16:24:20 +0100 |
| commit | 61d3376a4598b89f5ac1329ca215374ec358be3c (patch) | |
| tree | 6ab2d6909807b2de5045141fd3f19b81dd6fc87d /src/Text/Pandoc/Class.hs | |
| parent | e08e93e84401306dd87e4a96d4155182da5193d9 (diff) | |
Restore "Fetching..." message with openURL if --verbose.
Diffstat (limited to 'src/Text/Pandoc/Class.hs')
| -rw-r--r-- | src/Text/Pandoc/Class.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs index 7f96da870..887c7eeec 100644 --- a/src/Text/Pandoc/Class.hs +++ b/src/Text/Pandoc/Class.hs @@ -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 |