diff options
Diffstat (limited to 'hadrian/src/Rules/Program.hs')
| -rw-r--r-- | hadrian/src/Rules/Program.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/hadrian/src/Rules/Program.hs b/hadrian/src/Rules/Program.hs index 6273f3da4d..df542c0f1e 100644 --- a/hadrian/src/Rules/Program.hs +++ b/hadrian/src/Rules/Program.hs @@ -114,10 +114,12 @@ buildBinary rs bin context@Context {..} = do when (stage > Stage0) $ do ways <- interpretInContext context (getLibraryWays <> getRtsWays) needLibrary [ (rtsContext stage) { way = w } | w <- ways ] - cSrcs <- interpretInContext context (getContextData cSrcs) - cObjs <- mapM (objectPath context) cSrcs - hsObjs <- hsObjects context - let binDeps = cObjs ++ hsObjs + asmSrcs <- interpretInContext context (getContextData asmSrcs) + asmObjs <- mapM (objectPath context) asmSrcs + cSrcs <- interpretInContext context (getContextData cSrcs) + cObjs <- mapM (objectPath context) cSrcs + hsObjs <- hsObjects context + let binDeps = asmObjs ++ cObjs ++ hsObjs need binDeps buildWithResources rs $ target context (Ghc LinkHs stage) binDeps [bin] synopsis <- pkgSynopsis package |