Skip to content
Snippets Groups Projects
Commit fc00ce41 authored by bjorn@bringert.net's avatar bjorn@bringert.net
Browse files

Print download URL with -v, to allow debugging download errors.

parent 07b903ad
No related merge requests found
......@@ -87,7 +87,8 @@ downloadFile path url
-- Downloads a package to [config-dir/packages/package-id] and returns the path to the package.
downloadPackage :: ConfigFlags -> PackageIdentifier -> String -> IO String
downloadPackage cfg pkg url
= do mbError <- downloadFile path url
= do message (configOutputGen cfg) 2 $ "GET " ++ show url
mbError <- downloadFile path url
case mbError of
Just err -> fail $ printf "Failed to download '%s': %s" (showPackageId pkg) (show err)
Nothing -> return path
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment