diff options
author | Adam Chlipala <adam@chlipala.net> | 2014-05-02 17:16:02 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2014-05-02 17:16:02 -0400 |
commit | 8184fe8f3af43f4b614b79c411fc3b5578645983 (patch) | |
tree | 1249a913f37685611f686a4c5db3475723c93d21 /tests/bindpat.ur | |
parent | 4e164132ec8a73a440c2299126fc11c2275d439b (diff) |
Monadic bind supports patterns
Diffstat (limited to 'tests/bindpat.ur')
-rw-r--r-- | tests/bindpat.ur | 6 |
1 files changed, 6 insertions, 0 deletions
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> |