diff options
| -rw-r--r-- | src/Gtk/State.dcl | 2 | ||||
| -rw-r--r-- | src/Gtk/State.icl | 5 |
2 files changed, 1 insertions, 6 deletions
diff --git a/src/Gtk/State.dcl b/src/Gtk/State.dcl index 389ce71..cbc86c1 100644 --- a/src/Gtk/State.dcl +++ b/src/Gtk/State.dcl @@ -24,8 +24,6 @@ instance Functor GtkM instance pure GtkM instance <*> GtkM instance Monad GtkM -where - (>>|) infixl 1 :: (GtkM a) (GtkM b) -> GtkM b newGtkState :: GtkState 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 |