Changeset 8738

Timestamp:

01/17/06 17:53:29 (3 years ago)

Author:

audreyt

Message:

* remove the redundant "--" in multiarg options.

Files:

• src/Pugs/Run/Args.hs (modified) (1 diff)

src/Pugs/Run/Args.hs

@@ -72 +72 @@
 unpackOptions (('-':opt):rest)  = unpackOption opt ++ unpackOptions rest
 unpackOptions opts@[filename]   = opts
-unpackOptions (filename:rest)   = filename : "--" : unpackOptions rest
+unpackOptions (filename:rest)   = filename : "--" : rest
 
 takesArg :: String -> Bool