Mercurial > urweb

comparison tests/mutual.ur @ 807:61a1f5c5ae2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Mutual datatypes through Effectize
author Adam Chlipala <adamc@hcoop.net>
date Sat, 16 May 2009 15:45:12 -0400
parents e2780d2f4afc
children
comparison
equal deleted inserted replaced
806:0e554bfd6d6a 807:61a1f5c5ae2c
1 datatype foo = A | B of bar 1 datatype foo = A | B of bar
2 and bar = C | D of foo 2 and bar = C | D of foo
3
4 val q = B (D A)
5
6 fun main () = return <xml>
7 {case q of
8 B (D A) => <xml>Good</xml>
9 | _ => <xml>Bad</xml>}
10 </xml>