[commit: ghc] wip/nfs-locking: Avoid using Traversable to get at forM (eda5882)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:05:38 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/eda5882a83ad353eb636b4249439095d237e331f/ghc

>---------------------------------------------------------------

commit eda5882a83ad353eb636b4249439095d237e331f
Author: Neil Mitchell <ndmitchell at gmail.com>
Date:   Sat Jan 9 21:46:52 2016 +0000

    Avoid using Traversable to get at forM


>---------------------------------------------------------------

eda5882a83ad353eb636b4249439095d237e331f
 src/Rules.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Rules.hs b/src/Rules.hs
index fe8242b..7af1556 100644
--- a/src/Rules.hs
+++ b/src/Rules.hs
@@ -2,7 +2,6 @@ module Rules (generateTargets, packageRules) where
 
 import Base
 import Data.Foldable
-import Data.Traversable
 import Expression
 import GHC
 import Rules.Generate
@@ -25,7 +24,7 @@ targetsForStage :: Stage -> Action [String]
 targetsForStage stage = do
     pkgs <- interpretWithStage stage getPackages
     let libPkgs = filter isLibrary pkgs \\ [rts, libffi]
-    libTargets <- fmap concat . for libPkgs $ \pkg -> do
+    libTargets <- fmap concat . forM libPkgs $ \pkg -> do
         let target = PartialTarget stage pkg
         needHaddock <- interpretPartial target buildHaddock
         return [ pkgHaddockFile pkg | needHaddock && stage == Stage1 ]



More information about the ghc-commits mailing list