Commit b16a1f74 authored by Simon Marlow's avatar Simon Marlow
Browse files

UNDO: Merge "unrecognized long opt" fix from 6.4.2

This patch undid the previous patch, "merge from base".  I asked Sven
to revert it, but didn't get an answer.
  
See GHC bug #473.
parent 61bc3618
......@@ -166,7 +166,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,us,[])
procNextOpt (NonOpt x) RequireOrder = ([],x:rest,[],[])
procNextOpt (NonOpt x) Permute = (os,x:xs,us,es)
procNextOpt (NonOpt x) (ReturnInOrder f) = (f x :os, xs,us,es)
procNextOpt EndOfOpts RequireOrder = ([],rest,[],[])
......
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