From c5920c7a95e79ea84759c0dcb1e6ce61fb4740b7 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 5 Jan 2015 11:06:10 +0200 Subject: [PATCH] Fix unpack file writing --- Data/Unpacking.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Data/Unpacking.hs b/Data/Unpacking.hs index 66aecf7..d505720 100644 --- a/Data/Unpacking.hs +++ b/Data/Unpacking.hs @@ -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 =