From: simonmar <unknown>
Date: Thu, 24 Jun 2004 09:35:13 +0000 (+0000)
Subject: [project @ 2004-06-24 09:35:13 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1790
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cec63e48a65ecb6b86f01d637a130473ffbcb784;p=ghc-hetmet.git

[project @ 2004-06-24 09:35:13 by simonmar]
Tiny perf improvement
---

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)