From 9b6803a6ec263f81ecfadf303b7dba0d1cd5f97e Mon Sep 17 00:00:00 2001
From: chak <unknown>
Date: Sat, 6 Jul 2002 10:14:31 +0000
Subject: [PATCH] [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.
---
 ghc/compiler/main/Main.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
1.7.10.4