hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Show curl progress bar

Browse Source
This commit is contained in:
Julian Ospald 2020-04-10 19:08:02 +02:00
parent f6725fbf5f
commit c106dd3f65
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/GHCup/Download.hs
View File

@ -304,7 +304,7 @@ download dli dest mfn
) $ do ) $ do
#if defined(CURL) #if defined(CURL)
liftE $ lEM @_ @'[ProcessError] $ liftIO $ exec "curl" True 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 #else
(https, host, fullPath, port) <- liftE $ uriToQuadruple (view dlUri dli) (https, host, fullPath, port) <- liftE $ uriToQuadruple (view dlUri dli)
liftE $ downloadToFile https host fullPath port destFile liftE $ downloadToFile https host fullPath port destFile