aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/apps/AddPath.hs
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2016-08-20 17:55:37 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2016-08-20 17:55:37 +0300
commitfc5ed9ff90979c077fad5cc6b6f06c6487667777 (patch)
treecf33fe64ee0ce4b7dc6a10c5eebf1f9ce270c5f4 /apps/AddPath.hs
parentfix HLint warnings (diff)
downloadwindows-env-fc5ed9ff90979c077fad5cc6b6f06c6487667777.tar.gz
windows-env-fc5ed9ff90979c077fad5cc6b6f06c6487667777.zip
code style
Diffstat (limited to 'apps/AddPath.hs')
-rw-r--r--apps/AddPath.hs25
1 files changed, 13 insertions, 12 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