diff options
| -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 () |