From d9cdfba6dfdaf09e30ee838c2e7435e114953d3f Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
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