[commit: packages/Win32] master: Fix foreign import calling convention on SetWindowLongPtrW. Appears that this should be WINDOWS_CCONV. (00b9fc9)

git at git.haskell.org git at git.haskell.org
Thu Jul 30 06:57:44 UTC 2015


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

On branch  : master
Link       : http://git.haskell.org/packages/Win32.git/commitdiff/00b9fc990db1378610c9fc195c4637651cb1318e

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

commit 00b9fc990db1378610c9fc195c4637651cb1318e
Author: Darren Grant <dedgrant at gmail.com>
Date:   Sun Mar 1 01:00:52 2015 -0800

    Fix foreign import calling convention on SetWindowLongPtrW. Appears that this should be WINDOWS_CCONV.


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

00b9fc990db1378610c9fc195c4637651cb1318e
 Graphics/Win32/Window.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Graphics/Win32/Window.hsc b/Graphics/Win32/Window.hsc
index abb9e15..81baf3d 100644
--- a/Graphics/Win32/Window.hsc
+++ b/Graphics/Win32/Window.hsc
@@ -204,7 +204,7 @@ setWindowClosure wnd closure = do
   _ <- c_SetWindowLongPtr wnd (#{const GWLP_USERDATA})
                               (castPtr (castFunPtrToPtr fp))
   return ()
-foreign import capi unsafe "windows.h SetWindowLongPtrW"
+foreign import WINDOWS_CCONV unsafe "windows.h SetWindowLongPtrW"
   c_SetWindowLongPtr :: HWND -> INT -> Ptr LONG -> IO (Ptr LONG)
 
 createWindow



More information about the ghc-commits mailing list