aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/apps/SetEnv.hs
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2016-12-13 03:20:58 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2016-12-13 03:20:58 +0300
commit1ab0697d268c27a0d7871e0f6bcb6ba1a165fb77 (patch)
tree5e36eec58bf32ded1a266d8310c1ada3265db0e1 /apps/SetEnv.hs
parentbugfix (withPrompt no longer swallows IOError) (diff)
downloadwindows-env-1ab0697d268c27a0d7871e0f6bcb6ba1a165fb77.tar.gz
windows-env-1ab0697d268c27a0d7871e0f6bcb6ba1a165fb77.zip
setenv: prompt message update
It also now uncoditionally overrides variables (i.e. even when the corresponding registy values are not strings).
Diffstat (limited to 'apps/SetEnv.hs')
-rw-r--r--apps/SetEnv.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/apps/SetEnv.hs b/apps/SetEnv.hs
index 0c8df32..aa8c583 100644
--- a/apps/SetEnv.hs
+++ b/apps/SetEnv.hs
@@ -64,8 +64,8 @@ setEnv options = runExceptT doSetEnv >>= either ioError return
skipPrompt = optYes options
promptAnd
| skipPrompt = withoutPrompt
- | otherwise = withPrompt $ engraveMessage profile varName "" varValue
+ | otherwise = withPrompt $ newMessage profile varName varValue
- engrave = Env.engrave profile varName varValue
+ engrave = Env.engraveForce profile varName varValue
doSetEnv = void $ promptAnd engrave