diff options
| -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 |