Changeset 3372 for src/Pugs/Run/Args.hs

Timestamp:

05/18/05 02:43:25 (4 years ago)

Author:

theorbtwo

svk:copy_cache_prev:

4945

Message:

More signatures, a few more haddocks.

Files:

• src/Pugs/Run/Args.hs (modified) (2 diffs)

src/Pugs/Run/Args.hs

@@ -67 +67 @@
     | otherwise = ['-':opt]
 
+-- | List of options with long and sort variants, as tupples of long, short (with the dashes).
+longOptions :: [(String, String)]
 longOptions = [("--help", "-h"), ("--version", "-v")]
+
+-- | List of options that can have their argument just after, with no space.
+composable :: [Char]
 composable = "cdlnpw"
+
+-- | List of options that can take arguments
+withParam :: [String]
 withParam = words "e C B I M V:"
+
+prefixOpt :: [Char] -> Maybe (String, String)
 prefixOpt opt = msum $ map (findArg opt) withParam
+
+findArg :: Eq a => [a] -> [a] -> Maybe ([a], [a])
 findArg arg prefix = do
     param <- afterPrefix prefix arg
@@ -90 +102 @@
 -}
 
+compareArgs :: Arg -> Arg -> Ordering
 compareArgs a b = compare (argRank a) (argRank b)