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

Fix a stupid typo

Browse Source
This commit is contained in:
Michael Snoyman 2015-01-05 10:43:09 +02:00
parent 3fc4609210
commit a9131a7cdd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Data/Unpacking.hs
View File

@ -163,7 +163,7 @@ unpacker
-> IO () -- ^ onRawComplete
-> Entity Stackage
-> IO ()
unpacker dirs runDB store say onRawComplete (Entity sid Stackage {..}) = do
unpacker dirs runDB store say onRawComplete (Entity sid stackage@Stackage {..}) = do
say "Removing old directories, if they exist"
removeTreeIfExists $ dirRawIdent dirs stackageIdent
removeTreeIfExists $ dirGzIdent dirs stackageIdent
@ -193,7 +193,7 @@ unpacker dirs runDB store say onRawComplete (Entity sid Stackage {..}) = do
)
say "Unpack complete"
writeFile "completeUnpackFile dirs ent" ("Complete" :: ByteString)
writeFile (completeUnpackFile dirs stackage) ("Complete" :: ByteString)
completeUnpackFile :: Dirs -> Stackage -> FilePath
completeUnpackFile dirs stackage =