From 8ed51dca15aca92313350a18107536aeb1d2dd51 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 8 Nov 2019 14:59:13 +0100
Subject: Use abstract newtypes to hide pointers

---
 src/Gtk/Signal.icl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl
index 543c7a2..be019b5 100644
--- a/src/Gtk/Signal.icl
+++ b/src/Gtk/Signal.icl
@@ -49,7 +49,7 @@ 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} ->
-	let (GtkWidget w) = gtkWidget widget in
+	let w = toPtr widget in
 	toState (g_signal_connect w (signalName handler) (callback handler_internal) id) >>|
 	pure widget
 where
-- 
cgit v1.2.3