From d86d88b96cd7aba976ab58b909fd4eae48323bb0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 10 Nov 2018 23:57:53 +0100
Subject: Add >>, fix do to use it.

---
 data/writer.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'data/writer.scm')

diff --git a/data/writer.scm b/data/writer.scm
index 462d391..93f3798 100644
--- a/data/writer.scm
+++ b/data/writer.scm
@@ -21,7 +21,14 @@
   (match this (($ <writer> value monoid)
                (match (proc value)
                  (($ <writer> nval ncontext)
-                  (writer nval { monoid <> ", " <> ncontext }))))))
+                  (writer nval { monoid <> ncontext }))))))
+
+(define-method (>> (a <writer>)
+                   (b <writer>))
+  (match a (($ <writer> _ monoid-a)
+            (match b (($ <writer> val monoid-b)
+                      (writer val (<> monoid-a monoid-b))
+                      )))))
 
 (define (return-writer val)
   (writer val ""))
-- 
cgit v1.2.3