From 2fa0a80c72db29010c5d88a0fe0418b96ffdcaca Mon Sep 17 00:00:00 2001
From: disconcision <me@andrewblinn.com>
Date: Fri, 8 Nov 2024 00:54:48 -0500
Subject: [PATCH] add last restructuring task but with >> substituted for |>

---
 src/hazel/Grammar.re |  4 ++--
 src/web/Data.re      | 16 ++++++++--------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/hazel/Grammar.re b/src/hazel/Grammar.re
index ac9af73c..21753617 100644
--- a/src/hazel/Grammar.re
+++ b/src/hazel/Grammar.re
@@ -149,8 +149,8 @@ module Exp = {
     //let
     p(let_),
     p(type_def),
-    //Reverse-ap (disabled for now as interferes with case rules)
-    //p(~a=L, seq([exp, op("|>"), exp])),
+    //Reverse-ap (re-syntaxed for now as interferes with case rules)
+    p(~a=L, seq([exp, op(">>"), exp])),
     //fun
     p(
       seq([kw(~space=(false, true), "fun"), nt(Pat.sort), op("->"), exp]),
diff --git a/src/web/Data.re b/src/web/Data.re
index fb94d6ca..9621cd1a 100644
--- a/src/web/Data.re
+++ b/src/web/Data.re
@@ -42,16 +42,16 @@ in
 [mark(p1), line(p1, p2), mark(p2)]|};
 
 let t3_transcribe = {|shapes
-|> map(rotate(pi / 4))
-|> map(translate(6, 7))
-|> filter(fun shape -> area(shape) < 50)
-|> map(dilate(5))|};
+>> map(rotate(pi / 4))
+>> map(translate(6, 7))
+>> filter(fun shape -> area(shape) < 50)
+>> map(dilate(5))|};
 
 let t3_modify = {|shapes
-|> filter(fun shape -> area(shape) < 50)
-|> map(dilate(5))
-|> map(rotate(pi / 4))
-|> map(translate(6, 7))|};
+>> filter(fun shape -> area(shape) < 50)
+>> map(dilate(5))
+>> map(rotate(pi / 4))
+>> map(translate(6, 7))|};
 
 let emoji_paint = {|type Emoji = None + Smile + Laugh in
 let Row = Int in