f631290 · typeable/pandoc

git.iko.soy/typeable/pandoc

Less verbose output from --self-contained.

Now one gets "Fetching [URL]..." for each URL fetched, but not the full header.

commitf63129040b7d9d32366b92c8c435bee52b66d3a7 authorJohn MacFarlane <fiddlosopher@gmail.com> dateSat 4 May 2013, 21:53 (13 years ago) parent008273e

1 file changed+2−1

unifiedsplit

src/Text/Pandoc/Shared.hs+2−1

@@ -568,7 +568,8 @@ fetchItem sourceDir s =

568568-- | Read from a URL and return raw data and maybe mime type.

569569openURL :: String -> IO (B.ByteString, Maybe String)

570570openURL u = getBodyAndMimeType `fmap` browse

571− (do setOutHandler (UTF8.hPutStrLn stderr)

571+ (do S.liftIO $ UTF8.hPutStrLn stderr $ "Fetching " ++ u ++ "..."

572+ setOutHandler $ const (return ())

572573 setAllowRedirects True

573574 request (getRequest' u'))

574575 where getBodyAndMimeType (_, r) = (rspBody r, findHeader HdrContentType r)