Mercurial > urweb

view tests/pvar.ur @ 2207:f0f7bf234893

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Removes DBMS choice override from compiler.sml (which was there for debugging).
author Ziv Scully <ziv@mit.edu>
date Fri, 30 May 2014 12:00:00 -0400
parents 5137b0537c92
children
line wrap: on
line source
val v1 : variant [A = int, B = float] = make [#A] 1
val v2 : variant [A = int, B = float] = make [#B] 2.3

fun main () = return (match v1 {A = fn n => <xml>A: {[n]}</xml>,
                                B = fn n => <xml>B: {[n]}</xml>})