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

Enable internal downloader for Linux 64 bit release

Browse Source
This commit is contained in:
Julian Ospald 2020-07-18 03:05:41 +02:00
parent f46c8bdd6f
commit 6260816ed1
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitlab/script/ghcup_release.sh
View File

@ -19,7 +19,7 @@ if [ "${OS}" = "LINUX" ] ; then
if [ "${BIT}" = "32" ] ; then if [ "${BIT}" = "32" ] ; then
ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections -optl-static' -ftui -ftar ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections -optl-static' -ftui -ftar
else else
ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections -optl-static' -ftui ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections -optl-static' -ftui -finternal-downloader
fi fi
elif [ "${OS}" = "FREEBSD" ] ; then elif [ "${OS}" = "FREEBSD" ] ; then
ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections' --constraint="zlib static" -ftui ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections' --constraint="zlib static" -ftui

1
lib/GHCup/Download/Internal.hs
View File

@ -71,6 +71,7 @@ downloadBS' :: (MonadThrow m, MonadIO m)
(L.ByteString) (L.ByteString)
downloadBS' uri' = do downloadBS' uri' = do
bref <- liftIO $ newIORef (mempty :: Builder) bref <- liftIO $ newIORef (mempty :: Builder)
-- TODO: performance
let stepper bs = modifyIORef bref (<> byteString bs) let stepper bs = modifyIORef bref (<> byteString bs)
downloadInternal False downloadInternal False
(T.unpack . decUTF8Safe . serializeURIRef' $ uri') (T.unpack . decUTF8Safe . serializeURIRef' $ uri')