Commit f078d9bc authored by simonmar's avatar simonmar

[project @ 2003-08-11 08:53:39 by simonmar]

Revert part of previous commit that sneaked in by accident.
parent d4337146
-----------------------------------------------------------------------------
-- $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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment