aboutsummaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2016-07-17 18:33:45 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2016-07-17 18:33:45 +0300
commitd70025b57690133675a36c5974affa9edc5d50fb (patch)
tree52f12e7649f3c7daf5dfffce2f5d89d9bee2b94e
parentrefactoring (diff)
downloadwindows-env-d70025b57690133675a36c5974affa9edc5d50fb.tar.gz
windows-env-d70025b57690133675a36c5974affa9edc5d50fb.zip
code style
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