[commit: ghc] wip/nfs-locking: Clean up. (20ed2d1)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:08:37 UTC 2017


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

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

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

commit 20ed2d1d6d1ce6b612eb607cae447c9646f7be6b
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Mon Jan 19 04:13:06 2015 +0000

    Clean up.


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

20ed2d1d6d1ce6b612eb607cae447c9646f7be6b
 src/Package/Compile.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Package/Compile.hs b/src/Package/Compile.hs
index 94cf16a..d99e2bf 100644
--- a/src/Package/Compile.hs
+++ b/src/Package/Compile.hs
@@ -49,9 +49,7 @@ compileHaskell pkg @ (Package _ path _) todo @ (stage, dist, _) obj way = do
     let buildDir = unifyPath $ path </> dist </> "build"
     -- TODO: keep only vanilla dependencies in 'haskell.deps'
     deps <- args $ DependencyList (buildDir </> "haskell.deps") obj
-    let (srcs, his) = partition ("//*hs" ?==) deps
-        objs = map (-<.> osuf way) his
-    -- Need *.o files instead of *.hi files to avoid recursive rules
+    let srcs = filter ("//*hs" ?==) deps
     need deps
     run (Ghc stage) $ ghcArgs pkg todo way srcs obj
 



More information about the ghc-commits mailing list