[project @ 2005-03-31 15:16:53 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / Main.hs

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index ad25d55..f797899 100644 (file)
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -13,7 +13,8 @@ module Main (main) where
 
 -- The official GHC API
 import qualified GHC
-import GHC             ( Session, DynFlags(..), GhcMode(..), HscTarget(..) )
+import GHC             ( Session, DynFlags(..), GhcMode(..), HscTarget(..),
+                         LoadHowMuch(..) )
 import CmdLineParser
 
 -- Implementations of the various modes (--show-iface, mkdependHS. etc.)
@@ -354,7 +355,7 @@ doMake sess []    = throwDyn (UsageError "no input files")
 doMake sess srcs  = do 
     targets <- mapM GHC.guessTarget srcs
     GHC.setTargets sess targets
-    ok_flag <- GHC.load sess Nothing
+    ok_flag <- GHC.load sess LoadAllTargets
     when (failed ok_flag) (exitWith (ExitFailure 1))
     return ()