[project @ 2002-02-18 12:41:01 by sewardj]

[ghc-hetmet.git] / ghc / compiler / compMan / CmLink.lhs

diff --git a/ghc/compiler/compMan/CmLink.lhs b/ghc/compiler/compMan/CmLink.lhs
index c7ac67e..151099b 100644 (file)
--- a/ghc/compiler/compMan/CmLink.lhs
+++ b/ghc/compiler/compMan/CmLink.lhs
@@ -262,7 +262,8 @@ link' Interactive dflags batch_attempt_linking linkables pls
 
            -- Always load objects first.  Objects aren't allowed to
            -- depend on BCOs.
-           let (objs, bcos) = partition isObjectLinkable linkables
+           let (objs, bcos) = partition isObjectLinkable 
+                                  (concatMap partitionLinkable linkables)
 
            objs_loaded  <- readIORef v_ObjectsLoaded
            objs_loaded' <- linkObjs objs objs_loaded