From a0ec80fb1ee03b3653848a852b950ed46eba9f4e Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 17 May 2005 07:48:20 +0000 Subject: [PATCH] [project @ 2005-05-17 07:48:20 by simonmar] small cleanup: use joinFileExt --- ghc/compiler/main/GHC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4