Commit 1db94ec6 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-10-27 14:46:37 by simonmar]

remove traces
parent c21ac4e1
-----------------------------------------------------------------------------
-- $Id: DriverFlags.hs,v 1.11 2000/10/27 14:45:18 simonmar Exp $
-- $Id: DriverFlags.hs,v 1.12 2000/10/27 14:46:37 simonmar Exp $
--
-- Driver flags
--
......@@ -62,7 +62,6 @@ processArgs :: [(String,OptKind)] -> [String] -> [String]
-> IO [String] -- returns spare args
processArgs _spec [] spare = return (reverse spare)
processArgs spec args@(('-':arg):args') spare = do
putStrLn ( "processArg: " ++ arg)
case findArg spec arg of
Just (rest,action) ->
do args' <- processOneArg action rest args
......@@ -115,8 +114,7 @@ processOneArg action rest (dash_arg@('-':arg):args) =
findArg :: [(String,OptKind)] -> String -> Maybe (String,OptKind)
findArg spec arg
= trace ("findArg: " ++ arg) $
case [ (remove_spaces rest, k)
= case [ (remove_spaces rest, k)
| (pat,k) <- spec, Just rest <- [my_prefix_match pat arg],
arg_ok k rest arg ]
of
......
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