diff options
| author | simonmar <unknown> | 2003-08-11 08:53:39 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-08-11 08:53:39 +0000 |
| commit | f078d9bc6719ff7ee489c04797545f7666bcaae6 (patch) | |
| tree | fb1a9079091cb13f6e5164639cff4203a808534f | |
| parent | d4337146a2b5f737a1d1ef13dcd87d066e308387 (diff) | |
| download | haskell-f078d9bc6719ff7ee489c04797545f7666bcaae6.tar.gz | |
[project @ 2003-08-11 08:53:39 by simonmar]
Revert part of previous commit that sneaked in by accident.
| -rw-r--r-- | ghc/compiler/main/DriverFlags.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs index c6077f7264..075d9bf4dd 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 |