From 34a2baf26404911b1e8ce3f8f7620a52bd39439c Mon Sep 17 00:00:00 2001 From: Lucy Cifferello <12953208+elvece@users.noreply.github.com> Date: Wed, 14 Sep 2022 17:58:10 -0600 Subject: [PATCH] unecessary decompression --- package.yaml | 1 - src/Handler/Admin.hs | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/package.yaml b/package.yaml index 9021d9c..193d575 100644 --- a/package.yaml +++ b/package.yaml @@ -74,7 +74,6 @@ dependencies: - yesod-auth-basic - yesod-core - yesod-persistent - - zip-stream library: source-dirs: src diff --git a/src/Handler/Admin.hs b/src/Handler/Admin.hs index 038e7f7..95c4cf1 100644 --- a/src/Handler/Admin.hs +++ b/src/Handler/Admin.hs @@ -193,7 +193,7 @@ postEosUploadR = do createDirectoryIfMissing True resourcesTemp withTempDirectory resourcesTemp "neweos" $ \dir -> do let path = dir "eos" <.> "img" - runConduit $ rawRequestBody .| ungzip .| sinkFile path + runConduit $ rawRequestBody .| sinkFile path void . runDB $ upsert (EosHash version hash) [EosHashHash =. hash] let targetPath = root show version removePathForcibly targetPath