From e46b0122b5abee69be40fea78b9c18e6d1f09bba Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 24 Oct 2019 11:14:53 +0200
Subject: Remove specialized >>| for GtkM; enforce evaluation in >>=

---
 src/Gtk/State.icl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/Gtk/State.icl')

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
-- 
cgit v1.2.3