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

[Mark Wright (gienah)]

gienah      12/11/25 05:43:19

  Added:                glib-0.12.3.1-ghc-7.6.patch
  Log:
  Patch glib-0.12.3.1 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/glib/files/glib-0.12.3.1-ghc-7.6.patch

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

Index: glib-0.12.3.1-ghc-7.6.patch
===================================================================
--- glib-0.12.3.1-orig/System/Glib/GObject.chs	2012-05-28 08:18:53.000000000 +1000
+++ glib-0.12.3.1/System/Glib/GObject.chs	2012-10-11 09:48:16.313701201 +1100
@@ -127,8 +127,6 @@
 
 {#pointer GDestroyNotify as DestroyNotify#}
 
-foreign import ccall "wrapper" mkDestroyNotifyPtr :: IO () -> IO DestroyNotify
-
 -- | This function wraps any newly created objects that derives from
 -- GInitiallyUnowned also known as objects with
 -- \"floating-references\". The object will be refSink (for glib
--- glib-0.12.3.1-orig/System/Glib/MainLoop.chs	2012-05-28 08:18:53.000000000 +1000
+++ glib-0.12.3.1/System/Glib/MainLoop.chs	2012-10-11 09:48:04.779383615 +1100
@@ -71,7 +71,7 @@
 
 {#pointer SourceFunc#}
 
-foreign import ccall "wrapper" mkSourceFunc :: IO {#type gint#} -> IO SourceFunc
+foreign import ccall "wrapper" mkSourceFunc :: (Ptr () -> IO {#type gint#}) -> IO SourceFunc
 
 type HandlerId = {#type guint#}
 
@@ -79,7 +79,7 @@
 --
 makeCallback :: IO {#type gint#} -> IO (SourceFunc, DestroyNotify)
 makeCallback fun = do
-  funPtr <- mkSourceFunc fun
+  funPtr <- mkSourceFunc (const fun)
   return (funPtr, destroyFunPtr)
 
 -- | Sets a function to be called at regular intervals, with the default