From: simonmar <unknown>
Date: Mon, 11 Aug 2003 08:53:39 +0000 (+0000)
Subject: [project @ 2003-08-11 08:53:39 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~589
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=f078d9bc6719ff7ee489c04797545f7666bcaae6

[project @ 2003-08-11 08:53:39 by simonmar]
Revert part of previous commit that sneaked in by accident.
---

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index c6077f7..075d9bf 100644
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverFlags.hs,v 1.118 2003/08/08 16:46:51 simonmar Exp $
+-- $Id: DriverFlags.hs,v 1.119 2003/08/11 08:53:39 simonmar Exp $
 --
 -- Driver flags
 --
@@ -127,7 +127,7 @@ findArg :: [(String,OptKind)] -> String -> Maybe (String,OptKind)
 findArg spec arg
   = case [ (remove_spaces rest, k) 
 	 | (pat,k)   <- spec, 
-	   Just rest <- [maybePrefixMatch pat arg],
+	   Just rest <- [my_prefix_match pat arg],
 	   arg_ok k rest arg ] 
     of
 	[]      -> Nothing