aboutsummaryrefslogtreecommitdiffstatshomepage
diff options
context:
space:
mode:
-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 ()