diff options
| author | Camil Staps | 2019-10-21 20:17:56 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-21 20:17:56 +0200 |
| commit | f738860d69a382965488065dbc1386fa1f28957b (patch) | |
| tree | f161203c080d9f38d5dd363e1eb6eead96d477e0 /src/Gtk/Signal.icl | |
| parent | Add tune instances to set row/column resizability/sensitivity on GtkSheet (diff) | |
Remove usage of import qualified as, which relies on the itask compiler
Diffstat (limited to 'src/Gtk/Signal.icl')
| -rw-r--r-- | src/Gtk/Signal.icl | 8 |
1 files changed, 4 insertions, 4 deletions
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 |