diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-08-20 17:55:37 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-08-20 17:55:37 +0300 |
| commit | fc5ed9ff90979c077fad5cc6b6f06c6487667777 (patch) | |
| tree | cf33fe64ee0ce4b7dc6a10c5eebf1f9ce270c5f4 /apps/ListPath.hs | |
| parent | fix HLint warnings (diff) | |
| download | windows-env-fc5ed9ff90979c077fad5cc6b6f06c6487667777.tar.gz windows-env-fc5ed9ff90979c077fad5cc6b6f06c6487667777.zip | |
code style
Diffstat (limited to '')
| -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 () |