X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=ec62de5771a113d072a1f35e20e49d04c135070e;hb=dde771de24f0e02d00867e79f7c68e526475d7c6;hp=c44cc83541839aedb8ad19a4b5fc20991fa077c0;hpb=98c68a1c5b63aadf9c7917274519d95bbe9394d4;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index c44cc83..ec62de5 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -218,7 +218,8 @@ import TcRnMonad        ( initIfaceCheck )
 import Packages
 import NameSet
 import RdrName
-import HsSyn 
+import qualified HsSyn -- hack as we want to reexport the whole module
+import HsSyn hiding ((<.>))
 import Type             hiding (typeKind)
 import TcType           hiding (typeKind)
 import Id
@@ -277,6 +278,7 @@ import System.Exit	( exitWith, ExitCode(..) )
 import System.Time	( ClockTime, getClockTime )
 import Control.Exception as Exception hiding (handle)
 import Data.IORef
+import System.FilePath
 import System.IO
 import System.IO.Error	( try, isDoesNotExistError )
 import Prelude hiding (init)
@@ -395,7 +397,7 @@ guessOutputFile s = modifySession s $ \env ->
             let isMain = (== mainModIs dflags) . ms_mod
             [ms] <- return (filter isMain mod_graph)
             ml_hs_file (ms_location ms)
-        guessedName = fmap basenameOf mainModuleSrcPath
+        guessedName = fmap dropExtension mainModuleSrcPath
     in
     case outputFile dflags of
         Just _ -> env
@@ -456,8 +458,8 @@ guessTarget file Nothing
 	   else do
 	return (Target (TargetModule (mkModuleName file)) Nothing)
      where 
-	 hs_file  = file `joinFileExt` "hs"
-	 lhs_file = file `joinFileExt` "lhs"
+	 hs_file  = file <.> "hs"
+	 lhs_file = file <.> "lhs"
 
 -- -----------------------------------------------------------------------------
 -- Extending the program scope