X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.hs;h=7da0074e2c7536b24455c740cb388426620ef6ad;hp=f9f64cbcf4eef81d32a4974cbeb5018f7f84137e;hb=3a223cd2811d46295048b3a2dab11403ca291b20;hpb=665b340ab40be2199dca9717c2a51f43f53fd3bb

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index f9f64cb..7da0074 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-}
 
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.130 2003/07/17 12:04:53 simonmar Exp $
+-- $Id: Main.hs,v 1.131 2003/07/21 15:14:18 ross Exp $
 --
 -- GHC Driver program
 --
@@ -266,6 +266,10 @@ main =
 checkOptions :: GhcMode -> [String] -> [String] -> IO ()
      -- Final sanity checking before kicking off a compilation (pipeline).
 checkOptions mode srcs objs = do
+     -- Complain about any unknown flags
+   let unknown_opts = [ f | f@('-':_) <- srcs ]
+   when (notNull unknown_opts) (unknownFlagsErr unknown_opts)
+
 	-- -ohi sanity check
    ohi <- readIORef v_Output_hi
    if (isJust ohi && 
@@ -285,10 +289,6 @@ checkOptions mode srcs objs = do
 	then throwDyn (UsageError "no input files")
 	else do
 
-     -- Complain about any unknown flags
-   let unknown_opts = [ f | f@('-':_) <- srcs ]
-   when (notNull unknown_opts) (unknownFlagsErr unknown_opts)
-
      -- Verify that output files point somewhere sensible.
    verifyOutputFiles