diff options
| author | Sven Panne <sven.panne@aedion.de> | 2006-05-06 11:05:19 +0000 |
|---|---|---|
| committer | Sven Panne <sven.panne@aedion.de> | 2006-05-06 11:05:19 +0000 |
| commit | cf09e8bfddac9820beffb8e68ba367453a0c80d0 (patch) | |
| tree | 6650db3a933eb678fbf0d90d6a48532e0205dd13 /libraries/base/System/Console | |
| parent | 916d10f8e6e840cc0aabf739aa221c9851db1f31 (diff) | |
| download | haskell-cf09e8bfddac9820beffb8e68ba367453a0c80d0.tar.gz | |
Merge "unrecognized long opt" fix from 6.4.2
Diffstat (limited to 'libraries/base/System/Console')
| -rw-r--r-- | libraries/base/System/Console/GetOpt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/System/Console/GetOpt.hs b/libraries/base/System/Console/GetOpt.hs index c1463c0f1e..fa9f9b20c5 100644 --- a/libraries/base/System/Console/GetOpt.hs +++ b/libraries/base/System/Console/GetOpt.hs @@ -161,7 +161,7 @@ getOpt' _ _ [] = ([],[],[],[]) getOpt' ordering optDescr (arg:args) = procNextOpt opt ordering where procNextOpt (Opt o) _ = (o:os,xs,us,es) procNextOpt (UnreqOpt u) _ = (os,xs,u:us,es) - procNextOpt (NonOpt x) RequireOrder = ([],x:rest,[],[]) + procNextOpt (NonOpt x) RequireOrder = ([],x:rest,us,[]) procNextOpt (NonOpt x) Permute = (os,x:xs,us,es) procNextOpt (NonOpt x) (ReturnInOrder f) = (f x :os, xs,us,es) procNextOpt EndOfOpts RequireOrder = ([],rest,[],[]) |