Enable internal downloader for Linux 64 bit release

2020-07-19 00:45:58 +02:00
2 changed files with 2 additions and 1 deletions
--- a/.gitlab/script/ghcup_release.sh
+++ b/.gitlab/script/ghcup_release.sh
@@ -19,7 +19,7 @@ if [ "${OS}" = "LINUX" ] ; then
 	if [ "${BIT}" = "32" ] ; then
 		ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections -optl-static' -ftui -ftar
 	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
 elif [ "${OS}" = "FREEBSD" ] ; then
 	ecabal build -w ghc-${GHC_VERSION} --ghc-options='-split-sections' --constraint="zlib static" -ftui
--- a/lib/GHCup/Download/Internal.hs
+++ b/lib/GHCup/Download/Internal.hs
@@ -71,6 +71,7 @@ downloadBS' :: (MonadThrow m, MonadIO m)
                 (L.ByteString)
 downloadBS' uri' = do
  bref <- liftIO $ newIORef (mempty :: Builder)
+  -- TODO: performance
  let stepper bs = modifyIORef bref (<> byteString bs)
  downloadInternal False
                   (T.unpack . decUTF8Safe . serializeURIRef' $ uri')