haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-05 23:57:28 +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 -> IO () -- ^ onRawComplete
-> Entity Stackage -> Entity Stackage
-> IO () -> 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" say "Removing old directories, if they exist"
removeTreeIfExists $ dirRawIdent dirs stackageIdent removeTreeIfExists $ dirRawIdent dirs stackageIdent
removeTreeIfExists $ dirGzIdent dirs stackageIdent removeTreeIfExists $ dirGzIdent dirs stackageIdent
@ -193,7 +193,7 @@ unpacker dirs runDB store say onRawComplete (Entity sid Stackage {..}) = do
) )
say "Unpack complete" say "Unpack complete"
writeFile "completeUnpackFile dirs ent" ("Complete" :: ByteString) writeFile (completeUnpackFile dirs stackage) ("Complete" :: ByteString)
completeUnpackFile :: Dirs -> Stackage -> FilePath completeUnpackFile :: Dirs -> Stackage -> FilePath
completeUnpackFile dirs stackage = completeUnpackFile dirs stackage =