From: simonmar <unknown>
Date: Tue, 17 May 2005 07:48:20 +0000 (+0000)
Subject: [project @ 2005-05-17 07:48:20 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~540
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a0ec80fb1ee03b3653848a852b950ed46eba9f4e;p=ghc-hetmet.git

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