Drop redundant createDirectory calls
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 31 Oct 2016 19:50:36 +0000 (19:50 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 31 Oct 2016 19:50:36 +0000 (19:50 +0000)
src/Rules/Data.hs
src/Rules/Gmp.hs
src/Rules/Libffi.hs
src/Util.hs

index 65c6392..ab8ac97 100644 (file)
@@ -47,7 +47,6 @@ buildPackageData context@Context {..} = do
                 | otherwise           = oldPath -/- "build" -/- pkgNameString package
         copyFile inTreeMk mk
         autogenFiles <- getDirectoryFiles oldBuild ["autogen/*"]
-        createDirectory $ buildPath context -/- "autogen"
         forM_ autogenFiles $ \file' -> do
             let file = unifyPath file'
             copyFile (oldBuild -/- file) (buildPath context -/- file)
index 1024533..2409b6e 100644 (file)
@@ -44,14 +44,12 @@ gmpRules = do
            any (`isInfixOf` configMk) [ "HaveFrameworkGMP = YES", "HaveLibGmp = YES" ]
         then do
             putBuild "| GMP library/framework detected and will be used"
-            createDirectory $ takeDirectory header
             copyFile (gmpBase -/- "ghc-gmp.h") header
         else do
             putBuild "| No GMP library/framework detected; in tree GMP will be built"
             need [gmpLibrary]
             createDirectory gmpObjects
             build $ Target gmpContext Ar [gmpLibrary] [gmpObjects]
-            createDirectory $ takeDirectory header
             copyFile (gmpBuildPath -/- "gmp.h") header
             copyFile (gmpBuildPath -/- "gmp.h") gmpLibraryInTreeH
 
index ae1c06f..8d72017 100644 (file)
@@ -70,7 +70,6 @@ libffiRules = do
 
     libffiMakefile <.> "in" %> \mkIn -> do
         removeDirectory libffiBuildPath
-        createDirectory $ buildRootPath -/- stageString Stage0
         tarball <- unifyPath . getSingleton "Exactly one LibFFI tarball is expected"
                <$> getDirectoryFiles "" ["libffi-tarballs/libffi*.tar.gz"]
 
index f2e6516..81f67dd 100644 (file)
@@ -92,7 +92,7 @@ captureStdout target path argList = do
     Stdout output <- cmd [path] argList
     writeFileChanged file output
 
--- | Copy a file tracking the source.
+-- | Copy a file tracking the source, create the target directory if missing.
 copyFile :: FilePath -> FilePath -> Action ()
 copyFile source target = do
     need [source] -- Guarantee source is built before printing progress info.