diff options
Diffstat (limited to 'Command.hs')
| -rw-r--r-- | Command.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/Command.hs b/Command.hs index 9d85fbe9d..c1069f0d9 100644 --- a/Command.hs +++ b/Command.hs @@ -212,12 +212,8 @@ notSymlink :: FilePath -> IO Bool notSymlink f = liftIO $ not . isSymbolicLink <$> getSymbolicLinkStatus f {- Descriptions of params used in usage messages. -} -paramRepeating :: String -> String -paramRepeating s = s ++ " ..." -paramOptional :: String -> String -paramOptional s = "[" ++ s ++ "]" -paramPair :: String -> String -> String -paramPair a b = a ++ " " ++ b +paramPaths :: String +paramPaths = paramOptional $ paramRepeating paramPath -- most often used paramPath :: String paramPath = "PATH" paramKey :: String @@ -240,6 +236,12 @@ paramKeyValue :: String paramKeyValue = "K=V" paramNothing :: String paramNothing = "" +paramRepeating :: String -> String +paramRepeating s = s ++ " ..." +paramOptional :: String -> String +paramOptional s = "[" ++ s ++ "]" +paramPair :: String -> String -> String +paramPair a b = a ++ " " ++ b {- The Key specified by the --key parameter. -} cmdlineKey :: Annex Key |