refactor in preparation for adding a git-annex-shell command
This commit is contained in:
parent
6a5be9d53c
commit
a89a6f2114
24 changed files with 204 additions and 136 deletions
20
Command.hs
20
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 = ""
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue