From ade834e46fd6cf37d256ffdd33d69f6dc486c6b6 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 28 Oct 2019 10:44:55 +0100
Subject: Remove ptr class

---
 src/Gtk/Signal.icl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'src/Gtk/Signal.icl')

diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl
index ca19afd..26fcc7f 100644
--- a/src/Gtk/Signal.icl
+++ b/src/Gtk/Signal.icl
@@ -32,12 +32,8 @@ installSignalHandler handler widget =
 		& signal_handlers = 'Data.Map'.put (st.signal_counter+1) handler_internal st.signal_handlers
 		, signal_counter  = st.signal_counter+1
 		}) >>= \{signal_counter=id} ->
-	toState
-		(g_signal_connect
-			(type handler_internal)
-			(toPtr (gtkWidget widget))
-			(signalName handler)
-			id) >>|
+	let (GtkWidget w) = gtkWidget widget in
+	toState (g_signal_connect (type handler_internal) w (signalName handler) id) >>|
 	pure widget
 where
 	type handler = case handler of
-- 
cgit v1.2.3