aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--stdlib/source/lux/data/text/lexer.lux7
1 files changed, 7 insertions, 0 deletions
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))))