From dc004b45f8b499a4c35b08f8e18f641354f9b9d1 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 22 Oct 2019 14:52:47 +0200 Subject: Add custom GtkM state monad with a bind that does not grow the stack --- src/Gtk/Signal.dcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Gtk/Signal.dcl') diff --git a/src/Gtk/Signal.dcl b/src/Gtk/Signal.dcl index acec991..32ebc08 100644 --- a/src/Gtk/Signal.dcl +++ b/src/Gtk/Signal.dcl @@ -1,6 +1,6 @@ definition module Gtk.Signal -from Gtk.State import :: State, :: StateT, :: Identity, :: GtkState, :: GtkM +from Gtk.State import :: GtkM from Gtk.Widgets import class gtkWidget :: GSignalHandlerFunction :== GtkM () @@ -12,4 +12,4 @@ from Gtk.Widgets import class gtkWidget :: GSignalHandlerInternal = GSHI_Void !GSignalHandlerFunction -installSignalHandler :: !GSignalHandler !w -> State GtkState w | gtkWidget w +installSignalHandler :: !GSignalHandler !w -> GtkM w | gtkWidget w -- cgit v1.2.3