diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-11 05:37:27 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-11 05:37:27 +0300 |
| commit | 742c541568f05d160784ace2024ee7256e3bd189 (patch) | |
| tree | 1825605080aecab732ac59245dc762f4248945c7 /app/SetEnv.hs | |
| parent | windows-env.cabal: fix formatting (diff) | |
| download | windows-env-742c541568f05d160784ace2024ee7256e3bd189.tar.gz windows-env-742c541568f05d160784ace2024ee7256e3bd189.zip | |
refactoring
Diffstat (limited to 'app/SetEnv.hs')
| -rw-r--r-- | app/SetEnv.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/SetEnv.hs b/app/SetEnv.hs index bb058d8..a986226 100644 --- a/app/SetEnv.hs +++ b/app/SetEnv.hs @@ -55,7 +55,7 @@ setEnv :: Options -> IO () setEnv options = runExceptT doSetEnv >>= either ioError return where varName = optName options - varValue = optValue options + varValue = WindowsEnv.VarValue False $ optValue options forAllUsers = optGlobal options profile @@ -67,6 +67,6 @@ setEnv options = runExceptT doSetEnv >>= either ioError return | skipPrompt = withoutPrompt | otherwise = withPrompt $ newMessage profile varName varValue - engrave = WindowsEnv.engrave profile varName $ WindowsEnv.VarValue False varValue + engrave = WindowsEnv.engrave profile varName varValue doSetEnv = void $ promptAnd engrave |