Create missing parent directories when unpacking

Author: geo2a

booster/tools/rpc-client/RpcClient.hs

@@ -549,7 +549,7 @@ runTarball common (Just sock) tarFile keepGoing runOnly compareDetails = do
             -- unpack all directories "rpc_<something>" containing "*.json" files
             (dir, "") -- directory
                 | Tar.Directory <- Tar.entryContent entry -> do
-                    createDirectoryIfMissing False dir -- create rpc dir so we can unpack files there
+                    createDirectoryIfMissing True dir -- create rpc dir so we can unpack files there
                     acc -- no additional file to return
                 | otherwise ->
                     acc -- skip other directories and top-level files
@@ -560,7 +560,7 @@ runTarball common (Just sock) tarFile keepGoing runOnly compareDetails = do
                     -- unpack json files into tmp directory
                     let newPath = dir </> file
                     -- current tarballs do not have dir entries, create dir here
-                    createDirectoryIfMissing False $ tmpDir </> dir
+                    createDirectoryIfMissing True $ tmpDir </> dir
                     BS.writeFile (tmpDir </> newPath) bs
                     (newPath :) <$> acc
                 | otherwise ->