diff options
author | 2010-12-30 15:06:26 -0400 | |
---|---|---|
committer | 2010-12-30 15:06:26 -0400 | |
commit | a89a6f21145966e625b811741d8ae972a11d92b1 (patch) | |
tree | 4fa1a5828b9b787ac25ae057b402e74ac36979d1 /Command.hs | |
parent | 6a5be9d53cad9ee2988c6d54001f387dfe1f2716 (diff) |
refactor in preparation for adding a git-annex-shell command
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/Command.hs b/Command.hs index 2144da353..690dd20ec 100644 --- a/Command.hs +++ b/Command.hs @@ -205,18 +205,24 @@ notSymlink f = do s <- liftIO $ getSymbolicLinkStatus f return $ not $ isSymbolicLink s -{- descriptions of params used in usage message -} +{- Descriptions of params used in usage messages. -} +paramRepeating :: String -> String +paramRepeating s = s ++ " ..." +paramOptional :: String -> String +paramOptional s = "[" ++ s ++ "]" paramPath :: String -paramPath = "PATH ..." -paramMaybePath :: String -paramMaybePath = "[PATH ...]" +paramPath = "PATH" paramKey :: String -paramKey = "KEY ..." +paramKey = "KEY" paramDesc :: String paramDesc = "DESCRIPTION" paramNumber :: String -paramNumber = "NUMBER ..." +paramNumber = "NUMBER" paramRemote :: String -paramRemote = "REMOTE ..." +paramRemote = "REMOTE" +paramGlob :: String +paramGlob = "GLOB" +paramName :: String +paramName = "NAME" paramNothing :: String paramNothing = "" |