[commit: Win32] master: Fix Graphics/Win32/Window.hsc on Win64 (f065e76)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Win32

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f065e76290149350f20eda0a24fc45f6ee0e2088

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

commit f065e76290149350f20eda0a24fc45f6ee0e2088
Author: Ian Lynagh <igloo at earth.li>
Date:   Thu Mar 15 22:48:07 2012 +0000

    Fix Graphics/Win32/Window.hsc on Win64

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

 Graphics/Win32/Window.hsc |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Graphics/Win32/Window.hsc b/Graphics/Win32/Window.hsc
index 39a494e..aa586c7 100644
--- a/Graphics/Win32/Window.hsc
+++ b/Graphics/Win32/Window.hsc
@@ -1,3 +1,4 @@
+{-# LANGUAGE CApiFFI #-}
 #if __GLASGOW_HASKELL__ >= 701
 {-# LANGUAGE Trustworthy #-}
 #endif
@@ -186,10 +187,11 @@ foreign import stdcall "wrapper"
 setWindowClosure :: HWND -> WindowClosure -> IO ()
 setWindowClosure wnd closure = do
   fp <- mkWindowClosure closure
-  _ <- c_SetWindowLong wnd (#{const GWL_USERDATA}) (castFunPtrToLONG fp)
+  _ <- c_SetWindowLongPtr wnd (#{const GWLP_USERDATA})
+                              (castPtr (castFunPtrToPtr fp))
   return ()
-foreign import stdcall unsafe "windows.h SetWindowLongW"
-  c_SetWindowLong :: HWND -> INT -> LONG -> IO LONG
+foreign import capi unsafe "windows.h SetWindowLongPtrW"
+  c_SetWindowLongPtr :: HWND -> INT -> Ptr LONG -> IO (Ptr LONG)
 
 createWindow
   :: ClassName -> String -> WindowStyle ->