[project @ 1999-07-06 16:45:31 by simonpj]

[ghc-hetmet.git] / ghc / lib / exts / GetOpt.lhs

diff --git a/ghc/lib/exts/GetOpt.lhs b/ghc/lib/exts/GetOpt.lhs
index f8c4646..2a934df 100644 (file)
--- a/ghc/lib/exts/GetOpt.lhs
+++ b/ghc/lib/exts/GetOpt.lhs
@@ -125,7 +125,7 @@ shortOpt x xs rest optDescr = short ads xs rest
         short (_:_:_)        _  rest     = (errAmbig options optStr,rest)
         short (NoArg  a  :_) [] rest     = (Opt a,rest)
         short (NoArg  a  :_) xs rest     = (Opt a,('-':xs):rest)
-        short (ReqArg f d:_) [] []       = (errReq d optStr,[])
+        short (ReqArg _ d:_) [] []       = (errReq d optStr,[])
         short (ReqArg f _:_) [] (r:rest) = (Opt (f r),rest)
         short (ReqArg f _:_) xs rest     = (Opt (f xs),rest)
         short (OptArg f _:_) [] rest     = (Opt (f Nothing),rest)