Use simpler mapM instead of traverse
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 22 May 2016 00:57:26 +0000 (01:57 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 22 May 2016 00:57:26 +0000 (01:57 +0100)
src/Rules.hs
src/Rules/Dependencies.hs

index e3caf6c..bea672d 100644 (file)
@@ -45,7 +45,7 @@ topLevelTargets = do
                 if isLibrary pkg
                 then do -- build a library
                     ways <- interpretInContext context getLibraryWays
-                    libs <- traverse (pkgLibraryFile . Context stage pkg) ways
+                    libs <- mapM (pkgLibraryFile . Context stage pkg) ways
                     docs <- interpretInContext context buildHaddock
                     need $ libs ++ [ pkgHaddockFile context | docs && stage == Stage1 ]
                 else do -- otherwise build a program
index 78f4d40..c5f60bb 100644 (file)
@@ -36,7 +36,7 @@ buildPackageDependencies rs context@Context {..} =
             cSrcs <- pkgDataList $ CSrcs path
             let cDepFiles = map (src2dep context) cSrcs
             need $ hDepFile : cDepFiles -- need all for more parallelism
-            cDeps <- fmap concat $ traverse readFile' cDepFiles
+            cDeps <- concatMapM readFile' cDepFiles
             hDeps <- readFile' hDepFile
             let result = unlines
                        . map (\(src, deps) -> unwords $ src : deps)