diff options
| author |   Mark Wright <gienah@gentoo.org> | 2012-11-25 05:43:19 +0000 |
|---|---|---|
| committer | Mark Wright <gienah@gentoo.org> | 2012-11-25 05:43:19 +0000 |
| commit | 67a4fd029e37c72dcf984da5b9f272b4da521431 (patch) | |
| tree | 18bc93924c75e4aaf4894dff5adf8ea353da01c9 /dev-haskell/glib/files | |
| parent | Patch gtk2hs-buildtools-0.12.3.1 for ghc 7.6.1 (diff) | |
| download | gentoo-2-67a4fd029e37c72dcf984da5b9f272b4da521431.tar.gz gentoo-2-67a4fd029e37c72dcf984da5b9f272b4da521431.tar.bz2 gentoo-2-67a4fd029e37c72dcf984da5b9f272b4da521431.zip | |
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)
Diffstat (limited to 'dev-haskell/glib/files')
| -rw-r--r-- | dev-haskell/glib/files/glib-0.12.3.1-ghc-7.6.patch | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/dev-haskell/glib/files/glib-0.12.3.1-ghc-7.6.patch b/dev-haskell/glib/files/glib-0.12.3.1-ghc-7.6.patch new file mode 100644 index 000000000000..3c9ab53ab3aa --- /dev/null +++ b/dev-haskell/glib/files/glib-0.12.3.1-ghc-7.6.patch @@ -0,0 +1,31 @@ +--- 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 |