diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-07-17 18:33:45 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-07-17 18:33:45 +0300 |
| commit | d70025b57690133675a36c5974affa9edc5d50fb (patch) | |
| tree | 52f12e7649f3c7daf5dfffce2f5d89d9bee2b94e | |
| parent | refactoring (diff) | |
| download | windows-env-d70025b57690133675a36c5974affa9edc5d50fb.tar.gz windows-env-d70025b57690133675a36c5974affa9edc5d50fb.zip | |
code style
| -rw-r--r-- | apps/AddPath.hs | 5 | ||||
| -rw-r--r-- | apps/FixNtSymbolPath.hs | 5 | ||||
| -rw-r--r-- | apps/SetEnv.hs | 5 | ||||
| -rw-r--r-- | apps/UnsetEnv.hs | 5 |
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 |