Commit 20ed2d1d authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Clean up.

parent 82901986
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment