diff options
| -rw-r--r-- | apps/AddPath.hs | 25 | ||||
| -rw-r--r-- | apps/FixNtSymbolPath.hs | 12 | ||||
| -rw-r--r-- | apps/ListPath.hs | 13 | ||||
| -rw-r--r-- | apps/RemovePath.hs | 25 | ||||
| -rw-r--r-- | apps/SetEnv.hs | 24 | ||||
| -rw-r--r-- | apps/UnsetEnv.hs | 18 |
6 files changed, 61 insertions, 56 deletions
diff --git a/apps/AddPath.hs b/apps/AddPath.hs index 1b27b84..da68009 100644 --- a/apps/AddPath.hs +++ b/apps/AddPath.hs @@ -30,18 +30,19 @@ optionParser = Options <*> optGlobalDesc <*> optPathsDesc where - optNameDesc = strOption $ - long "name" <> short 'n' <> metavar "NAME" <> value "PATH" <> - help "Variable name ('PATH' by default)" - optYesDesc = switch $ - long "yes" <> short 'y' <> - help "Skip confirmation prompt" - optGlobalDesc = switch $ - long "global" <> short 'g' <> - help "Add for all users" - optPathsDesc = many $ argument str $ - metavar "PATH" <> - help "Directories to add" + optNameDesc = strOption + $ long "name" <> short 'n' + <> metavar "NAME" <> value "PATH" + <> help "Variable name ('PATH' by default)" + optYesDesc = switch + $ long "yes" <> short 'y' + <> help "Skip confirmation prompt" + optGlobalDesc = switch + $ long "global" <> short 'g' + <> help "Add for all users" + optPathsDesc = many + $ argument str $ metavar "PATH" + <> help "Directories to add" main :: IO () main = execParser parser >>= addPath diff --git a/apps/FixNtSymbolPath.hs b/apps/FixNtSymbolPath.hs index a1b1e9e..a7c3b08 100644 --- a/apps/FixNtSymbolPath.hs +++ b/apps/FixNtSymbolPath.hs @@ -28,12 +28,12 @@ optionParser = Options <$> optYesDesc <*> optGlobalDesc where - optYesDesc = switch $ - long "yes" <> short 'y' <> - help "Skip confirmation prompt" - optGlobalDesc = switch $ - long "global" <> short 'g' <> - help "Set up for all users" + optYesDesc = switch + $ long "yes" <> short 'y' + <> help "Skip confirmation prompt" + optGlobalDesc = switch + $ long "global" <> short 'g' + <> help "Set up for all users" data Dirs = Dirs { pdbsDir :: String diff --git a/apps/ListPath.hs b/apps/ListPath.hs index b9cc121..6432455 100644 --- a/apps/ListPath.hs +++ b/apps/ListPath.hs @@ -28,15 +28,18 @@ data Options = Options } deriving (Eq, Show) optionParser :: Parser Options -optionParser = Options <$> optNameDesc <*> optWhichPathsDesc +optionParser = Options + <$> optNameDesc + <*> optWhichPathsDesc where - optNameDesc = strOption $ - long "name" <> short 'n' <> metavar "NAME" <> value "PATH" <> - help "Variable name ('PATH' by default)" + optNameDesc = strOption + $ long "name" <> short 'n' + <> metavar "NAME" <> value "PATH" + <> help "Variable name ('PATH' by default)" optWhichPathsDesc = pure All <|> flag' ExistingOnly (long "existing" <> short 'e' <> help "List existing paths only") - <|> flag' MissingOnly (long "missing" <> short 'm' + <|> flag' MissingOnly (long "missing" <> short 'm' <> help "List missing paths only") main :: IO () diff --git a/apps/RemovePath.hs b/apps/RemovePath.hs index 8d9692b..5f5cd1d 100644 --- a/apps/RemovePath.hs +++ b/apps/RemovePath.hs @@ -30,18 +30,19 @@ optionParser = Options <*> optGlobalDesc <*> optPathsDesc where - optNameDesc = strOption $ - long "name" <> short 'n' <> metavar "NAME" <> value "PATH" <> - help "Variable name ('PATH' by default)" - optYesDesc = switch $ - long "yes" <> short 'y' <> - help "Skip confirmation prompt" - optGlobalDesc = switch $ - long "global" <> short 'g' <> - help "Remove for all users" - optPathsDesc = many $ argument str $ - metavar "PATH" <> - help "Directories to remove" + optNameDesc = strOption + $ long "name" <> short 'n' + <> metavar "NAME" <> value "PATH" + <> help "Variable name ('PATH' by default)" + optYesDesc = switch + $ long "yes" <> short 'y' + <> help "Skip confirmation prompt" + optGlobalDesc = switch + $ long "global" <> short 'g' + <> help "Remove for all users" + optPathsDesc = many $ argument str + $ metavar "PATH" + <> help "Directories to remove" main :: IO () main = execParser parser >>= removePath diff --git a/apps/SetEnv.hs b/apps/SetEnv.hs index debc1d0..debc62d 100644 --- a/apps/SetEnv.hs +++ b/apps/SetEnv.hs @@ -28,18 +28,18 @@ optionParser = Options <*> optNameDesc <*> optValueDesc where - optYesDesc = switch $ - long "yes" <> short 'y' <> - help "Skip confirmation prompt" - optGlobalDesc = switch $ - long "global" <> short 'g' <> - help "Set for all users" - optNameDesc = argument str $ - metavar "NAME" <> - help "Variable name" - optValueDesc = argument str $ - metavar "VALUE" <> - help "Variable value" + optYesDesc = switch + $ long "yes" <> short 'y' + <> help "Skip confirmation prompt" + optGlobalDesc = switch + $ long "global" <> short 'g' + <> help "Set for all users" + optNameDesc = argument str + $ metavar "NAME" + <> help "Variable name" + optValueDesc = argument str + $ metavar "VALUE" + <> help "Variable value" main :: IO () main = execParser parser >>= setEnv diff --git a/apps/UnsetEnv.hs b/apps/UnsetEnv.hs index e08c95a..4fd6ccb 100644 --- a/apps/UnsetEnv.hs +++ b/apps/UnsetEnv.hs @@ -26,15 +26,15 @@ optionParser = Options <*> optGlobalDesc <*> optNameDesc where - optYesDesc = switch $ - long "yes" <> short 'y' <> - help "Skip confirmation prompt" - optGlobalDesc = switch $ - long "global" <> short 'g' <> - help "Unset for all users" - optNameDesc = argument str $ - metavar "NAME" <> - help "Variable name" + optYesDesc = switch + $ long "yes" <> short 'y' + <> help "Skip confirmation prompt" + optGlobalDesc = switch + $ long "global" <> short 'g' + <> help "Unset for all users" + optNameDesc = argument str + $ metavar "NAME" + <> help "Variable name" main :: IO () main = execParser parser >>= unsetEnv |