diff options
Diffstat (limited to 'apps/ListPath.hs')
| -rw-r--r-- | apps/ListPath.hs | 13 |
1 files changed, 8 insertions, 5 deletions
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 () |