diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-08-20 17:58:58 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-08-20 17:58:58 +0300 |
| commit | 3dafff5813b9956713abe8b1b94388c7d6bac60a (patch) | |
| tree | 658febc935b809f91e9dc3995fa0d2dee1a95302 | |
| parent | code style (diff) | |
| download | windows-env-3dafff5813b9956713abe8b1b94388c7d6bac60a.tar.gz windows-env-3dafff5813b9956713abe8b1b94388c7d6bac60a.zip | |
code style
| -rw-r--r-- | apps/AddPath.hs | 4 | ||||
| -rw-r--r-- | apps/ListPath.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/apps/AddPath.hs b/apps/AddPath.hs index da68009..93ea212 100644 --- a/apps/AddPath.hs +++ b/apps/AddPath.hs @@ -40,8 +40,8 @@ optionParser = Options optGlobalDesc = switch $ long "global" <> short 'g' <> help "Add for all users" - optPathsDesc = many - $ argument str $ metavar "PATH" + optPathsDesc = many $ argument str + $ metavar "PATH" <> help "Directories to add" main :: IO () diff --git a/apps/ListPath.hs b/apps/ListPath.hs index 6432455..6bb8a46 100644 --- a/apps/ListPath.hs +++ b/apps/ListPath.hs @@ -23,7 +23,7 @@ shouldListPath ExistingOnly = doesDirectoryExist shouldListPath MissingOnly = fmap not . doesDirectoryExist data Options = Options - { optName :: Env.VarName + { optName :: Env.VarName , optWhichPaths :: WhichPaths } deriving (Eq, Show) |