trash result

snoyberg · Dec 28, 2023 · ba00215 · ba00215
1 parent 9f76952
commit ba00215
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Keter/TempTarball.hs b/src/Keter/TempTarball.hs
@@ -70,7 +70,7 @@ unpackTempTar muid tf bundle appname withDir = do
         D.createDirectoryIfMissing True dir
         let entries = Tar.read $ decompress lbs
         Tar.unpack dir entries
-        forM muid $ \(uid, gid) ->
+        _ <- forM muid $ \(uid, gid) ->
           forM entries $ \genEntry ->
             setOwnerAndGroup (Tar.entryPath genEntry) uid gid
         withDir dir