From fc5ed9ff90979c077fad5cc6b6f06c6487667777 Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Sat, 20 Aug 2016 17:55:37 +0300 Subject: code style --- apps/ListPath.hs | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) (limited to 'apps/ListPath.hs') 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 () -- cgit v1.2.3