diff options
| author | Camil Staps | 2019-10-24 11:14:53 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-24 11:14:53 +0200 |
| commit | e46b0122b5abee69be40fea78b9c18e6d1f09bba (patch) | |
| tree | 0455e983405c96258c4e0675b60bdd47aeb7572f /src/Gtk/State.icl | |
| parent | Add setMarkup for GtkTextBuffer (diff) | |
Remove specialized >>| for GtkM; enforce evaluation in >>=
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 |