[gentoo-commits] gentoo-x86 commit in dev-haskell/gio/files: gio-0.12.3-ghc-7.6.patch

[Mark Wright (gienah)]

gienah      12/11/25 05:44:31

  Added:                gio-0.12.3-ghc-7.6.patch
  Log:
  Patch gio-0.12.3 for ghc 7.6.1
  
  (Portage version: 2.1.11.31/cvs/Linux x86_64, signed Manifest commit with key 618E971F)

Revision  Changes    Path
1.1                  dev-haskell/gio/files/gio-0.12.3-ghc-7.6.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-haskell/gio/files/gio-0.12.3-ghc-7.6.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-haskell/gio/files/gio-0.12.3-ghc-7.6.patch?rev=1.1&content-type=text/plain

Index: gio-0.12.3-ghc-7.6.patch
===================================================================
--- gio-0.12.3-orig/System/GIO/Async/AsyncResult.chs	2012-03-09 10:32:58.000000000 +1100
+++ gio-0.12.3/System/GIO/Async/AsyncResult.chs	2012-10-11 10:04:03.686864483 +1100
@@ -47,12 +47,12 @@
 {#pointer GAsyncReadyCallback#}
 
 foreign import ccall "wrapper" mkAsyncReadyCallback :: 
-    (Ptr GObject -> Ptr AsyncResult -> Ptr () -> IO ()) -> IO GAsyncReadyCallback
+    (Ptr () -> Ptr AsyncResult -> Ptr () -> IO ()) -> IO GAsyncReadyCallback
 
 marshalAsyncReadyCallback :: AsyncReadyCallback -> IO GAsyncReadyCallback
 marshalAsyncReadyCallback asyncReadyCallback = 
     mkAsyncReadyCallback $ \ cObject cAsyncResult cCallback -> do
-      object <- (makeNewGObject mkGObject . return) cObject
+      object <- (makeNewGObject mkGObject . return) (castPtr cObject)
       asyncResult <- (makeNewGObject mkAsyncResult . return) cAsyncResult
       asyncReadyCallback object asyncResult
       freeHaskellFunPtr (castPtrToFunPtr cCallback)