From a9131a7cdd731c5b99dc35cc5e25936513e9aa33 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 5 Jan 2015 10:43:09 +0200 Subject: [PATCH] Fix a stupid typo --- Data/Unpacking.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Data/Unpacking.hs b/Data/Unpacking.hs index aa49135..66aecf7 100644 --- a/Data/Unpacking.hs +++ b/Data/Unpacking.hs @@ -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 =