adamc@280: table t1 : {A : int, B : string, C : float} adamc@280: adamc@280: fun lookup (inp : {B : string}) = adamc@295: s <- query (SELECT * FROM t1 WHERE t1.B = {inp.B}) adamc@295: (fn fs _ => return fs.T1) adamc@295: {A = 0, B = "Couldn't find it!", C = 0.0}; adamc@280: return
adamc@295: A: {cdata (show _ s.A)}