X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.hs;h=20a551ea1ad34fe6ba0bd1b67fa05f6586d87921;hb=d28ba8c800901bea01f70c4719278c2a364cf9fc;hp=f6175e7b7585ed38cedcb4f2d5f3de76692dc8dd;hpb=9413f9edf73ee244ecd291c8faed5d94d934c1a4;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index f6175e7..20a551e 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.125 2003/06/10 17:54:56 sof Exp $
+-- $Id: Main.hs,v 1.127 2003/06/23 10:35:17 simonpj Exp $
 --
 -- GHC Driver program
 --
@@ -160,7 +160,7 @@ main =
    extra_non_static <- processArgs static_flags 
 			   (unreg_opts ++ way_opts ++ pkg_extra_opts) []
 
-	-- give the static flags to hsc
+	-- Give the static flags to hsc
    static_opts <- buildStaticHscOpts
    writeIORef v_Static_hsc_opts static_opts
 
@@ -219,12 +219,11 @@ main =
 			  || looksLikeModuleName m
 			  || '.' `notElem` m
 
-    (raw_srcs, objs) = partition looks_like_an_input fileish_args
-
-     -- To simplify the handling of filepaths, we normalise all source file
-     -- paths right away - e.g., for win32 platforms, backslashes are converted
+     -- To simplify the handling of filepaths, we normalise all filepaths right 
+     -- away - e.g., for win32 platforms, backslashes are converted
      -- into forward slashes.
-    srcs             = map normalisePath raw_srcs
+    normal_fileish_paths = map normalisePath fileish_args
+    (srcs, objs)         = partition looks_like_an_input normal_fileish_paths
 
    mapM_ (add v_Ld_inputs) objs