haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-26 19:01:56 +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" 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 -> FilePath
completeUnpackFile dirs stackage = completeUnpackFile dirs stackage =