adamc@296: table t1 : {A : int, B : string, C : float, D : bool} 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@296: {A = 0, B = "Couldn't find it!", C = 0.0, D = False}; adamc@280: return
adamc@295: A: {cdata (show _ s.A)}