diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-12 04:07:30 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-12 04:07:30 +0300 |
| commit | f446a04e4100ed52e9d100e8e9705d358943a4ec (patch) | |
| tree | 40ce78f56691dd85fe98b406b7de1b2c3b1d7551 /app/UnsetEnv.hs | |
| parent | setenv: crap, another bug (diff) | |
| download | windows-env-f446a04e4100ed52e9d100e8e9705d358943a4ec.tar.gz windows-env-f446a04e4100ed52e9d100e8e9705d358943a4ec.zip | |
refactoring
Diffstat (limited to 'app/UnsetEnv.hs')
| -rw-r--r-- | app/UnsetEnv.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/app/UnsetEnv.hs b/app/UnsetEnv.hs index 02df1a1..b841f86 100644 --- a/app/UnsetEnv.hs +++ b/app/UnsetEnv.hs @@ -50,17 +50,15 @@ unsetEnv :: Options -> IO () unsetEnv options = runExceptT doUnsetEnv >>= either ioError return where varName = optName options - forAllUsers = optGlobal options + skipPrompt = optYes options + profile | forAllUsers = WindowsEnv.AllUsers | otherwise = WindowsEnv.CurrentUser - skipPrompt = optYes options + doUnsetEnv = void $ promptAnd $ WindowsEnv.wipe profile varName + promptAnd | skipPrompt = withoutPrompt | otherwise = withPrompt $ wipeMessage profile varName - - wipe = WindowsEnv.wipe profile varName - - doUnsetEnv = void $ promptAnd wipe |