aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/src/Windows
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2016-12-13 19:29:22 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2016-12-13 19:29:22 +0300
commit62e70033d8191e48a65f576bd5dfce696496554f (patch)
tree9818092f99b1557f4b99f6948148daf753e01636 /src/Windows
parentbugfix (diff)
downloadwindows-env-62e70033d8191e48a65f576bd5dfce696496554f.tar.gz
windows-env-62e70033d8191e48a65f576bd5dfce696496554f.zip
bugfix
Diffstat (limited to '')
-rw-r--r--src/Windows/Registry.hs2
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 ()