diff options
author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-12-12 13:55:44 +0300 |
---|---|---|
committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-12-12 13:55:44 +0300 |
commit | 357c2cad11e5ded0a1c74edb364e32abe0178c6c (patch) | |
tree | f10143685c896877ef3012cc11f3c37f918c8189 /src/Windows/Environment.hs | |
parent | refactoring (diff) | |
download | windows-env-357c2cad11e5ded0a1c74edb364e32abe0178c6c.tar.gz windows-env-357c2cad11e5ded0a1c74edb364e32abe0178c6c.zip |
preserve types of registry values
Diffstat (limited to 'src/Windows/Environment.hs')
-rw-r--r-- | src/Windows/Environment.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Windows/Environment.hs b/src/Windows/Environment.hs index 490e2d4..8597d42 100644 --- a/src/Windows/Environment.hs +++ b/src/Windows/Environment.hs @@ -50,7 +50,7 @@ query profile name = Registry.getExpandedString (profileKeyPath profile) name engrave :: Profile -> VarName -> VarValue -> IO (Either IOError ()) engrave profile name value = finally doEngrave notifyEnvironmentUpdate where - doEngrave = Registry.setExpandableString (profileKeyPath profile) name value + doEngrave = Registry.setStringPreserveType (profileKeyPath profile) name value wipe :: Profile -> VarName -> IO (Either IOError ()) wipe profile name = finally doWipe notifyEnvironmentUpdate |