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 | 77b4d9b9397aefc41ae0c6465a75874c497d945c (patch) | |
| tree | 1249a913f37685611f686a4c5db3475723c93d21 /tests/bindpat.ur | |
| parent | 1580340ec252e4e399c2c1d2b403974f49c3a084 (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> |