Fix #3241: regSetStringValue passed the wrong value for the length

haskell · Jun 1, 2009 · 532169c · 532169c
1 parent fbfb0ea
commit 532169c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Win32/Registry.hsc b/System/Win32/Registry.hsc
@@ -491,7 +491,7 @@ type RegValueType = DWORD
 regSetStringValue :: HKEY -> String -> String -> IO ()
 regSetStringValue hk key val =
   withTString val $ \ v ->
-  regSetValueEx hk key rEG_SZ v (length val)
+  regSetValueEx hk key rEG_SZ v (length val * sizeOf (undefined::TCHAR))
 
 regSetValueEx :: HKEY -> String -> RegValueType -> LPTSTR -> Int -> IO ()
 regSetValueEx key subkey ty value value_len =