From: simonmar <unknown>
Date: Tue, 14 Nov 2000 14:30:40 +0000 (+0000)
Subject: [project @ 2000-11-14 14:30:40 by simonmar]
X-Git-Tag: Approximately_9120_patches~3346
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=955640ec75e111a84d0511a543c9e9cad51c371b;p=ghc-hetmet.git

[project @ 2000-11-14 14:30:40 by simonmar]
don't prepend current_dir to the name of the hifile twice.
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 1c60a8f..f761b9d 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.22 2000/11/14 08:07:12 simonpj Exp $
+-- $Id: DriverPipeline.hs,v 1.23 2000/11/14 14:30:40 simonmar Exp $
 --
 -- GHC Driver
 --
@@ -410,8 +410,7 @@ run_phase Hsc basename suff input_fn output_fn
 	ohi    <- readIORef v_Output_hi
 	hisuf  <- readIORef v_Hi_suf
 	let hifile = case ohi of
-			   Nothing -> current_dir ++ "/" ++ basename
-					++ "." ++ hisuf
+			   Nothing -> basename ++ '.':hisuf
 			   Just fn -> fn
 
   -- figure out if the source has changed, for recompilation avoidance.