From d70025b57690133675a36c5974affa9edc5d50fb Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Sun, 17 Jul 2016 18:33:45 +0300 Subject: code style --- apps/AddPath.hs | 5 +++-- apps/FixNtSymbolPath.hs | 5 +++-- apps/SetEnv.hs | 5 +++-- apps/UnsetEnv.hs | 5 +++-- 4 files changed, 12 insertions(+), 8 deletions(-) (limited to 'apps') 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 -- cgit v1.2.3