Revert part of previous commit that sneaked in by accident.
-----------------------------------------------------------------------------
--- $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
--
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