From f738860d69a382965488065dbc1386fa1f28957b Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 21 Oct 2019 20:17:56 +0200
Subject: Remove usage of import qualified as, which relies on the itask
 compiler

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

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

diff --git a/src/Gtk/Signal.icl b/src/Gtk/Signal.icl
index 9ca4b22..5861e92 100644
--- a/src/Gtk/Signal.icl
+++ b/src/Gtk/Signal.icl
@@ -5,9 +5,9 @@ import StdEnv
 import Control.Monad
 import Control.Monad.Identity
 import Control.Monad.State
-import qualified Data.Map as M
+import qualified Data.Map
 
-import qualified Gtk.Internal as I
+import Gtk.Internal
 import Gtk.State
 import Gtk.Widgets
 
@@ -15,12 +15,12 @@ installSignalHandler :: !GSignalHandler !w -> State GtkState w | gtkWidget w
 installSignalHandler handler widget =
 	modify (\st ->
 		{ st
-		& signal_handlers = 'M'.put (st.signal_counter+1) handler_internal st.signal_handlers
+		& signal_handlers = 'Data.Map'.put (st.signal_counter+1) handler_internal st.signal_handlers
 		, signal_counter  = st.signal_counter+1
 		}) >>|
 	gets (\st -> st.signal_counter) >>= \id ->
 	(toState case handler_internal of
-		GSHI_Void _ -> 'I'.g_signal_connect_void (toPtr (gtkWidget widget)) signal_name id) >>|
+		GSHI_Void _ -> g_signal_connect_void (toPtr (gtkWidget widget)) signal_name id) >>|
 	pure widget
 where
 	(signal_name,handler_internal) = case handler of
-- 
cgit v1.2.3