From d9cdfba6dfdaf09e30ee838c2e7435e114953d3f Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Mon, 14 Dec 2015 20:06:13 +0300 Subject: strip extra whitespace --- AddPath.hs | 2 +- ListPath.hs | 2 +- RemovePath.hs | 2 +- UnsetEnv.hs | 2 +- 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 -- cgit v1.2.3