[project @ 2005-05-17 07:48:20 by simonmar]

small cleanup: use joinFileExt

diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index ba47a72..8dd1950 100644 (file)
--- a/ghc/compiler/main/GHC.hs
+++ b/ghc/compiler/main/GHC.hs
@@ -370,8 +370,8 @@ guessTarget file Nothing
           else do
        return (Target (TargetModule (mkModule file)) Nothing)
      where 
-        hs_file = file ++ ".hs"
-        lhs_file = file ++ ".lhs"
+        hs_file  = file `joinFileExt` "hs"
+        lhs_file = file `joinFileExt` "lhs"
 
 -- -----------------------------------------------------------------------------
 -- Loading the program