diff options
Diffstat (limited to 'src/Gtk/State.icl')
| -rw-r--r-- | src/Gtk/State.icl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Gtk/State.icl b/src/Gtk/State.icl index 53a5b2e..e9bb625 100644 --- a/src/Gtk/State.icl +++ b/src/Gtk/State.icl @@ -47,16 +47,13 @@ where // convention, so that an endless bind chain can be executed in // constant space. left right s - # (x,s) = x s + #! (x,s) = x s # k = right x = k s right x # (GtkM k) = k x = k - (>>|) infixl 1 :: (GtkM a) (GtkM b) -> GtkM b - (>>|) (GtkM a) (GtkM b) = GtkM \st -> case a st of (_,st) -> b st - runGtk :: !(GtkM a) !*World -> (!a, !*World) runGtk f w = (getResult (wrapped_f newGtkState), w) where |