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 '')
| -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 |