From f619a094d6044635176bd2736f8fd0ca1c7372d9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 14 Apr 2017 23:07:13 -0400
Subject: - Added a new way to sequentially combine text lexers.

---
 stdlib/source/lux/data/text/lexer.lux | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/stdlib/source/lux/data/text/lexer.lux b/stdlib/source/lux/data/text/lexer.lux
index e43d87bd9..9146ca136 100644
--- a/stdlib/source/lux/data/text/lexer.lux
+++ b/stdlib/source/lux/data/text/lexer.lux
@@ -510,3 +510,10 @@
       (if (Text/= "" unconsumed)
         (#E;Success [real-input value])
         (#E;Error ($_ Text/append "Unconsumed input: " unconsumed))))))
+
+(def: #export (seq' left right)
+  (-> (Lexer Text) (Lexer Text) (Lexer Text))
+  (do Monad<Lexer>
+    [=left left
+     =right right]
+    (wrap (Text/append =left =right))))
-- 
cgit v1.2.3