Ticket #1244: patch-glib-ghc74

File patch-glib-ghc74, 0.6 kB (added by guest, 3 years ago)
Line 
1diff --git a/glib/System/Glib/hsgclosure.c b/glib/System/Glib/hsgclosure.c
2index d93842e..a9157fe 100644
3--- a/glib/System/Glib/hsgclosure.c
4+++ b/glib/System/Glib/hsgclosure.c
5@@ -106,7 +106,11 @@ gtk2hs_closure_marshal(GClosure *closure,
6     WHEN_DEBUG(g_debug("gtk2hs_closure_marshal: about to rts_evalIO"));
7     
8     /* perform the call */
9+#if __GLASGOW_HASKELL__>703
10+    rts_evalIO(&CAP rts_apply(CAP (HaskellObj)runIO_closure, call),&ret);
11+#else
12     cap=rts_evalIO(CAP rts_apply(CAP (HaskellObj)runIO_closure, call),&ret);
13+#endif
14     
15     WHEN_DEBUG(g_debug("gtk2hs_closure_marshal: about to rts_checkSchedStatus"));
16