Use new hook generator

gtk2hs · Jul 8, 2014 · fc50ec4 · fc50ec4
1 parent 4a2f593
commit fc50ec4
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/Graphics/UI/Gtk/OSX/Application.chs b/Graphics/UI/Gtk/OSX/Application.chs
@@ -220,5 +220,5 @@ willTerminate = Signal (connect_NONE__NONE "NSApplicationWillTerminate")
 -- |
 --
 openFile :: (ApplicationClass self, GlibString string) => Signal self (string -> IO ())
-openFile = Signal (connect_STRING__NONE "NSApplicationOpenFile")
+openFile = Signal (connect_GLIBSTRING__NONE "NSApplicationOpenFile")
 
diff --git a/marshal.list b/marshal.list
@@ -14,7 +14,7 @@
 #   FLAGS       for flag enumeration types (guint)
 #   FLOAT       for single-precision float types (gfloat)
 #   DOUBLE      for double-precision float types (gdouble)
-#   STRING      for string types (gchar*)
+#   GLIBSTRING  for string types (gchar*)
 #   BOXED       for boxed (anonymous but reference counted) types (GBoxed*)
 #   POINTER     for anonymous pointer types (gpointer)
 #   NONE        deprecated alias for VOID
@@ -45,4 +45,4 @@
 NONE:NONE
 NONE:BOXED,BOXED
 BOOLEAN:VOID
-VOID:STRING
+VOID:GLIBSTRING