From cec63e48a65ecb6b86f01d637a130473ffbcb784 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 24 Jun 2004 09:35:13 +0000
Subject: [PATCH] [project @ 2004-06-24 09:35:13 by simonmar] Tiny perf
 improvement

---
 ghc/compiler/main/DriverUtil.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/main/DriverUtil.hs b/ghc/compiler/main/DriverUtil.hs
index 69c276d..80ca04b 100644
--- a/ghc/compiler/main/DriverUtil.hs
+++ b/ghc/compiler/main/DriverUtil.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverUtil.hs,v 1.41 2003/11/17 14:41:03 simonmar Exp $
+-- $Id: DriverUtil.hs,v 1.42 2004/06/24 09:35:13 simonmar Exp $
 --
 -- Utils for the driver
 --
@@ -176,7 +176,7 @@ splitFilename3 str
 
 remove_suffix :: Char -> String -> Suffix
 remove_suffix c s
-  | null pre  = reverse suf
+  | null pre  = s
   | otherwise = reverse pre
   where (suf,pre) = break (==c) (reverse s)
 
-- 
1.7.10.4