From: chak <unknown>
Date: Sat, 6 Jul 2002 10:14:31 +0000 (+0000)
Subject: [project @ 2002-07-06 10:14:31 by chak]
X-Git-Tag: Approx_11550_changesets_converted~1881
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9b6803a6ec263f81ecfadf303b7dba0d1cd5f97e

[project @ 2002-07-06 10:14:31 by chak]
Reverted to check for `null srcs' (instead of `null real_srcs') to determine
whether to throw "no input files".  Otherwise, something like

  ghc -o foo ObjectGeneratedByGHC.o

doesn't work anymore.
---

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index 3cb06dd..d4b8095 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.107 2002/07/05 16:15:14 sof Exp $
+-- $Id: Main.hs,v 1.108 2002/07/06 10:14:31 chak Exp $
 --
 -- GHC Driver program
 --
@@ -264,7 +264,7 @@ main =
 	then throwDyn (UsageError "can't apply -o to multiple source files")
 	else do
 
-   if null real_srcs then throwDyn (UsageError "no input files") else do
+   if null srcs then throwDyn (UsageError "no input files") else do
 
    let compileFile src = do
 	  restoreDynFlags