- val (name, rname, gname, forward, uses, other) =
- case C.oneOrNoRows (getDb ()) ($`SELECT name, rname, gname, forward, uses, other FROM MemberApp WHERE id = ^(C.intToSql id)`) of
- SOME [name, rname, gname, forward, uses, other] =>
+ val (name, rname, gname, email, forward, uses, other) =
+ case C.oneOrNoRows (getDb ()) ($`SELECT name, rname, gname, email, forward, uses, other FROM MemberApp WHERE id = ^(C.intToSql id)`) of
+ SOME [name, rname, gname, email, forward, uses, other] =>