From 2701f186cafe882cdc821e4c678526d106be772a Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 25 Sep 2019 14:43:31 +0300
Subject: [PATCH] Try to avoid chunkedFile #275

---
 src/Stackage/Database/Cron.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs
index 014250c..19bfc98 100644
--- a/src/Stackage/Database/Cron.hs
+++ b/src/Stackage/Database/Cron.hs
@@ -653,7 +653,8 @@ uploadHoogleDB fp key =
     withTempFile (takeDirectory fp) (takeFileName fp <.> "gz") $ \fpgz h -> do
         runConduitRes $ sourceFile fp .| compress 9 (WindowBits 31) .| CB.sinkHandle h
         hClose h
-        body <- chunkedFile defaultChunkSize fpgz
+        -- FIXME body <- chunkedFile defaultChunkSize fpgz
+        body <- toBody <$> readFileBinary fpgz
         uploadBucket <- scUploadBucketName <$> ask
         uploadFromRIO key $
             set poACL (Just OPublicRead) $ putObject (BucketName uploadBucket) key body