diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2016-12-13 19:29:22 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2016-12-13 19:29:22 +0300 |
| commit | 62e70033d8191e48a65f576bd5dfce696496554f (patch) | |
| tree | 9818092f99b1557f4b99f6948148daf753e01636 /src | |
| parent | bugfix (diff) | |
| download | windows-env-62e70033d8191e48a65f576bd5dfce696496554f.tar.gz windows-env-62e70033d8191e48a65f576bd5dfce696496554f.zip | |
bugfix
Diffstat (limited to 'src')
| -rw-r--r-- | src/Windows/Registry.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Windows/Registry.hs b/src/Windows/Registry.hs index 9423205..7a1ca2c 100644 --- a/src/Windows/Registry.hs +++ b/src/Windows/Registry.hs @@ -242,7 +242,7 @@ getType keyPath valueName flags = getExpandedString :: IsKeyPath a => a -> ValueName -> ExceptT IOError IO String getExpandedString keyPath valueName = do - valueData <- getValue keyPath valueName [RestrictString, RestrictExpandableString] + valueData <- getValue keyPath valueName [RestrictString] return $ decodeString valueData setValue :: IsKeyPath a => a -> ValueName -> ValueData -> ExceptT IOError IO () |