diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2015-12-14 20:06:13 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2015-12-14 20:06:13 +0300 |
| commit | d9cdfba6dfdaf09e30ee838c2e7435e114953d3f (patch) | |
| tree | 264877f3d90ead031cf28b0b90207ebf36d57349 | |
| parent | bugfix (diff) | |
| download | windows-env-d9cdfba6dfdaf09e30ee838c2e7435e114953d3f.tar.gz windows-env-d9cdfba6dfdaf09e30ee838c2e7435e114953d3f.zip | |
strip extra whitespace
| -rw-r--r-- | AddPath.hs | 2 | ||||
| -rw-r--r-- | ListPath.hs | 2 | ||||
| -rw-r--r-- | RemovePath.hs | 2 | ||||
| -rw-r--r-- | UnsetEnv.hs | 2 |
4 files changed, 4 insertions, 4 deletions
@@ -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 |