aboutsummaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2015-12-14 20:06:13 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2015-12-14 20:06:13 +0300
commitd9cdfba6dfdaf09e30ee838c2e7435e114953d3f (patch)
tree264877f3d90ead031cf28b0b90207ebf36d57349
parentbugfix (diff)
downloadwindows-env-d9cdfba6dfdaf09e30ee838c2e7435e114953d3f.tar.gz
windows-env-d9cdfba6dfdaf09e30ee838c2e7435e114953d3f.zip
strip extra whitespace
Diffstat (limited to '')
-rw-r--r--AddPath.hs2
-rw-r--r--ListPath.hs2
-rw-r--r--RemovePath.hs2
-rw-r--r--UnsetEnv.hs2
4 files changed, 4 insertions, 4 deletions
diff --git a/AddPath.hs b/AddPath.hs
index 2fc73e8..8ef00c5 100644
--- a/AddPath.hs
+++ b/AddPath.hs
@@ -19,7 +19,7 @@ main = do
rawArgs <- getArgs
case getOpt Permute optionDescription rawArgs of
(actions, args, []) -> do
- options <- foldl (>>=) (return defaultOptions) actions
+ options <- foldl (>>=) (return defaultOptions) actions
case args of
[path] -> addPath path options
_ -> invalidNumberOfArguments
diff --git a/ListPath.hs b/ListPath.hs
index 6c1fcfa..ca72e87 100644
--- a/ListPath.hs
+++ b/ListPath.hs
@@ -19,7 +19,7 @@ main = do
rawArgs <- getArgs
case getOpt Permute optionDescription rawArgs of
(actions, args, []) -> do
- options <- foldl (>>=) (return defaultOptions) actions
+ options <- foldl (>>=) (return defaultOptions) actions
case args of
[] -> listPath options
_ -> invalidNumberOfArguments
diff --git a/RemovePath.hs b/RemovePath.hs
index 50c4ca2..5fd6d6d 100644
--- a/RemovePath.hs
+++ b/RemovePath.hs
@@ -19,7 +19,7 @@ main = do
rawArgs <- getArgs
case getOpt Permute optionDescription rawArgs of
(actions, args, []) -> do
- options <- foldl (>>=) (return defaultOptions) actions
+ options <- foldl (>>=) (return defaultOptions) actions
case args of
[path] -> removePath path options
_ -> invalidNumberOfArguments
diff --git a/UnsetEnv.hs b/UnsetEnv.hs
index 9740c0d..cd43696 100644
--- a/UnsetEnv.hs
+++ b/UnsetEnv.hs
@@ -18,7 +18,7 @@ main = do
rawArgs <- getArgs
case getOpt Permute optionDescription rawArgs of
(actions, args, []) -> do
- options <- foldl (>>=) (return defaultOptions) actions
+ options <- foldl (>>=) (return defaultOptions) actions
case args of
[name] -> unsetEnv name options
_ -> invalidNumberOfArguments