Enable internal downloader for Linux 64 bit release

2020-07-19 00:45:58 +02:00
1 changed files with 1 additions and 0 deletions
--- 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')