From 955640ec75e111a84d0511a543c9e9cad51c371b Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 14 Nov 2000 14:30:40 +0000
Subject: [PATCH] [project @ 2000-11-14 14:30:40 by simonmar] don't prepend
 current_dir to the name of the hifile twice.

---
 ghc/compiler/main/DriverPipeline.hs |    5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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.
-- 
1.7.10.4