unecessary decompression

This commit is contained in:
Lucy Cifferello
2022-09-14 17:58:10 -06:00
parent c0587ebd7a
commit 34a2baf264
2 changed files with 1 additions and 2 deletions

View File

@@ -74,7 +74,6 @@ dependencies:
- yesod-auth-basic
- yesod-core
- yesod-persistent
- zip-stream
library:
source-dirs: src

View File

@@ -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