From 77b4d9b9397aefc41ae0c6465a75874c497d945c Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Fri, 2 May 2014 17:16:02 -0400
Subject: Monadic bind supports patterns

---
 tests/bindpat.ur | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 tests/bindpat.ur

(limited to 'tests/bindpat.ur')

diff --git a/tests/bindpat.ur b/tests/bindpat.ur
new file mode 100644
index 00000000..bca4bd41
--- /dev/null
+++ b/tests/bindpat.ur
@@ -0,0 +1,6 @@
+fun main () : transaction page =
+  (a, b) <- return (1, 2);
+  {C = c, ...} <- return {C = "hi", D = False};
+  d <- return 2.34;
+  {1 = e, 2 = f} <- return (8, 9);
+  return <xml>{[a]}, {[b]}, {[c]}, {[d]}, {[e]}, {[f]}</xml>
-- 
cgit v1.2.3