haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 12:18:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix unpack file writing

Browse Source
This commit is contained in:
Michael Snoyman 2015-01-05 11:06:10 +02:00
parent 522406b66a
commit c5920c7a95
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Data/Unpacking.hs
View File

@ -193,7 +193,10 @@ unpacker dirs runDB store say onRawComplete (Entity sid stackage@Stackage {..})
)
say "Unpack complete"
writeFile (completeUnpackFile dirs stackage) ("Complete" :: ByteString)
let completeFP = completeUnpackFile dirs stackage
liftIO $ do
createTree $ F.parent completeFP
writeFile completeFP ("Complete" :: ByteString)
completeUnpackFile :: Dirs -> Stackage -> FilePath
completeUnpackFile dirs stackage =