From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 5 Jul 2006 14:25:37 +0000 (+0000)
Subject: UNDO: Merge "unrecognized long opt" fix from 6.4.2
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a3217608be008e56d0ed3d130f9dc71f6e6289e9;hp=dcf26b3c66554e062278dafc76aa2ee5bf878a75;p=haskell-directory.git

UNDO: Merge "unrecognized long opt" fix from 6.4.2
This patch undid the previous patch, "RequireOrder: do not collect
unrecognised options after a non-opt".  I asked Sven to revert it, but
didn't get an answer.

See bug #473.
---

diff --git a/System/Console/GetOpt.hs b/System/Console/GetOpt.hs
index fa9f9b2..c1463c0 100644
--- a/System/Console/GetOpt.hs
+++ b/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,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,[],[])