From 62e70033d8191e48a65f576bd5dfce696496554f Mon Sep 17 00:00:00 2001 From: Egor Tensin Date: Tue, 13 Dec 2016 19:29:22 +0300 Subject: bugfix --- src/Windows/Registry.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 () -- cgit v1.2.3