[commit: packages/Win32] ghc-head: Use regCreateKey to be more robust when registry entry does not exist. (8862fb6)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/Win32

On branch  : ghc-head
Link       : http://git.haskell.org/packages/Win32.git/commitdiff/8862fb620e5af0183259ae3e642e582cc8157334

>---------------------------------------------------------------

commit 8862fb620e5af0183259ae3e642e582cc8157334
Author: Edward Z. Yang <ezyang at mit.edu>
Date:   Wed Sep 4 19:40:07 2013 -0700

    Use regCreateKey to be more robust when registry entry does not exist.
    
    Signed-off-by: Edward Z. Yang <ezyang at mit.edu>


>---------------------------------------------------------------

8862fb620e5af0183259ae3e642e582cc8157334
 tests/registry001.hs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tests/registry001.hs b/tests/registry001.hs
index 9a789d2..f65c5cd 100644
--- a/tests/registry001.hs
+++ b/tests/registry001.hs
@@ -7,9 +7,9 @@ name = "test_registry001"
 
 -- Create, read, and delete a value (test for bug #3241)
 main = do
-  k1 <- regOpenKey hKEY_CURRENT_USER "Software"
-  k2 <- regOpenKey k1 "Haskell"
-  k3 <- regOpenKey k2 "GHC"
+  k1 <- regCreateKey hKEY_CURRENT_USER "Software"
+  k2 <- regCreateKey k1 "Haskell"
+  k3 <- regCreateKey k2 "GHC"
   flip finally (regDeleteValue k3 name) $ do
   regSetStringValue k3 name x
   r <- regQueryValue k3 (Just name)