From c106dd3f65a6944c0b77d0a3c1845fbed1a65571 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 10 Apr 2020 19:08:02 +0200 Subject: [PATCH] Show curl progress bar --- lib/GHCup/Download.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/GHCup/Download.hs b/lib/GHCup/Download.hs index ce433cc..c05ed1d 100644 --- a/lib/GHCup/Download.hs +++ b/lib/GHCup/Download.hs @@ -304,7 +304,7 @@ download dli dest mfn ) $ do #if defined(CURL) liftE $ lEM @_ @'[ProcessError] $ liftIO $ exec "curl" True - ["-sSfL", "-o", toFilePath destFile , serializeURIRef' $ view dlUri dli] Nothing Nothing + ["-fL", "-o", toFilePath destFile , serializeURIRef' $ view dlUri dli] Nothing Nothing #else (https, host, fullPath, port) <- liftE $ uriToQuadruple (view dlUri dli) liftE $ downloadToFile https host fullPath port destFile