Fix performance drop due to improper use of removeFiles.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 10 Aug 2015 23:16:38 +0000 (00:16 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Mon, 10 Aug 2015 23:16:38 +0000 (00:16 +0100)
src/Rules/Dependencies.hs
src/Rules/Library.hs

index 90c764f..8fb890e 100644 (file)
@@ -11,6 +11,7 @@ import Settings.Util
 import Settings.TargetDirectory
 import Rules.Actions
 import Rules.Resources
+import qualified System.Directory as IO
 
 buildPackageDependencies :: Resources -> StagePackageTarget -> Rules ()
 buildPackageDependencies _ target =
@@ -30,7 +31,7 @@ buildPackageDependencies _ target =
             srcs <- interpret target getPackageSources
             need srcs
             build $ fullTarget target (GhcM stage) srcs [file]
-            liftIO $ removeFiles "." [hDepFile <.> "bak"]
+            liftIO . IO.removeFile $ file <.> "bak"
 
         (buildPath -/- ".dependencies") %> \file -> do
             cSrcs <- pkgDataList $ CSrcs path
index 87a37ca..4619651 100644 (file)
@@ -25,7 +25,7 @@ buildPackageLibrary _ target = do
 
     -- TODO: handle dynamic libraries
     matchBuildResult buildPath "a" ?> \a -> do
-        liftIO $ removeFiles "." [a]
+        liftIO $ IO.removeFile a
         cSrcs   <- interpret target $ getPkgDataList CSrcs
         modules <- interpret target $ getPkgDataList Modules