aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/app
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2016-08-20 17:58:58 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2016-08-20 17:58:58 +0300
commit3dafff5813b9956713abe8b1b94388c7d6bac60a (patch)
tree658febc935b809f91e9dc3995fa0d2dee1a95302 /app
parentcode style (diff)
downloadwindows-env-3dafff5813b9956713abe8b1b94388c7d6bac60a.tar.gz
windows-env-3dafff5813b9956713abe8b1b94388c7d6bac60a.zip
code style
Diffstat (limited to '')
-rw-r--r--apps/AddPath.hs4
-rw-r--r--apps/ListPath.hs2
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)