diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-16 15:45:12 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-16 15:45:12 -0400 |
| commit | 3d77d43fda3acfa1d5f1e12c836718d79fdf84db (patch) | |
| tree | c5073d9b7f368aa38bb4d146c0a6b21900ef1f79 /tests | |
| parent | d889f05df404ac119cf864854e6fdfb4b5636472 (diff) | |
Mutual datatypes through Effectize
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/mutual.ur | 8 | ||||
| -rw-r--r-- | tests/mutual.urs | 1 |
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/mutual.ur b/tests/mutual.ur index da8eade4..c3d80c89 100644 --- a/tests/mutual.ur +++ b/tests/mutual.ur @@ -1,2 +1,10 @@ datatype foo = A | B of bar and bar = C | D of foo + +val q = B (D A) + +fun main () = return <xml> + {case q of + B (D A) => <xml>Good</xml> + | _ => <xml>Bad</xml>} +</xml> diff --git a/tests/mutual.urs b/tests/mutual.urs new file mode 100644 index 00000000..6ac44e0b --- /dev/null +++ b/tests/mutual.urs @@ -0,0 +1 @@ +val main : unit -> transaction page |