aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/apps/RemovePath.hs
diff options
context:
space:
mode:
Diffstat (limited to 'apps/RemovePath.hs')
-rw-r--r--apps/RemovePath.hs25
1 files changed, 13 insertions, 12 deletions
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