adamc@641: table t : {A : int}
adamc@641:
adamc@641: fun main () : transaction page =
adamc@641: let
adamc@641: fun check () =
adamc@641: r <- oneRow (SELECT SUM(t.A) AS X FROM t);
adamc@641: return (if r.X < 0 then
adamc@641: (Some 3, None)
adamc@641: else
adamc@641: (None, Some "Hi"))
adamc@641:
adamc@641: fun show (t ::: Type) (_ : show t) (opt : option t) =
adamc@641: case opt of
adamc@641: None => None
adamc@641: | Some v => {[v]}
adamc@641: in
adamc@641: s <- source (None, None);
adamc@641: return
adamc@641:
adamc@641:
adamc@641: Current: {show p.1}, {show p.2}}/>
adamc@641:
adamc@641: end