aboutsummaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--apps/AddPath.hs5
-rw-r--r--apps/FixNtSymbolPath.hs5
-rw-r--r--apps/SetEnv.hs5
-rw-r--r--apps/UnsetEnv.hs5
4 files changed, 12 insertions, 8 deletions
diff --git a/apps/AddPath.hs b/apps/AddPath.hs
index a3004a8..9c6c245 100644
--- a/apps/AddPath.hs
+++ b/apps/AddPath.hs
@@ -60,8 +60,9 @@ addPath options = do
pathsToAdd = optPaths options
forAllUsers = optGlobal options
- env | forAllUsers = Environment.AllUsers
- | otherwise = Environment.CurrentUser
+ env = if forAllUsers
+ then Environment.AllUsers
+ else Environment.CurrentUser
query = Environment.query env varName
diff --git a/apps/FixNtSymbolPath.hs b/apps/FixNtSymbolPath.hs
index 14d3ea6..7138f94 100644
--- a/apps/FixNtSymbolPath.hs
+++ b/apps/FixNtSymbolPath.hs
@@ -70,8 +70,9 @@ fixNtSymbolPath options = do
varName = "_NT_SYMBOL_PATH"
forAllUsers = optGlobal options
- env | forAllUsers = Environment.AllUsers
- | otherwise = Environment.CurrentUser
+ env = if forAllUsers
+ then Environment.AllUsers
+ else Environment.CurrentUser
query = Environment.query env varName
diff --git a/apps/SetEnv.hs b/apps/SetEnv.hs
index 54a3cde..3b88e7c 100644
--- a/apps/SetEnv.hs
+++ b/apps/SetEnv.hs
@@ -50,8 +50,9 @@ setEnv options = engrave varValue
varValue = optValue options
forAllUsers = optGlobal options
- env | forAllUsers = Environment.AllUsers
- | otherwise = Environment.CurrentUser
+ env = if forAllUsers
+ then Environment.AllUsers
+ else Environment.CurrentUser
skipPrompt = optYes options
engrave value = if skipPrompt
diff --git a/apps/UnsetEnv.hs b/apps/UnsetEnv.hs
index 6f47473..e4cbeac 100644
--- a/apps/UnsetEnv.hs
+++ b/apps/UnsetEnv.hs
@@ -44,8 +44,9 @@ unsetEnv options = wipe
varName = optName options
forAllUsers = optGlobal options
- env | forAllUsers = Environment.AllUsers
- | otherwise = Environment.CurrentUser
+ env = if forAllUsers
+ then Environment.AllUsers
+ else Environment.CurrentUser
skipPrompt = optYes options
wipe = if skipPrompt