From: simonmar <unknown>
Date: Thu, 24 Oct 2002 13:08:35 +0000 (+0000)
Subject: [project @ 2002-10-24 13:08:35 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1518
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=04a63774d33a71fc0b6eb2765ec28c77dad19052;p=ghc-hetmet.git

[project @ 2002-10-24 13:08:35 by simonmar]
In --make mode, consider everything that doesn't contain a '.' to be a
compilation manager input.  This fixes cases like

  ghc --make test37

where test37.hs exists.  I broke this in the previous commit, causing
a number of tests to break.
---

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index fd84cf0..a4f8255 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.112 2002/10/15 13:20:18 simonmar Exp $
+-- $Id: Main.hs,v 1.113 2002/10/24 13:08:35 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -326,7 +326,7 @@ beginMake fileish_args  = do
 		    when (failed ok_flag) (exitWith (ExitFailure 1))
 		    return ()
   where
-    looks_like_an_input m = haskellish_src_file m || looksLikeModuleName m
+    looks_like_an_input m = haskellish_src_file m || '.' `notElem` m
 
 
 beginInteractive :: [String] -> IO ()