record ValidQuery : TypeMkValidQuery : (0 ty : Type) -> (tr : ToRow ty) -> (qy : Query ty) -> {auto 0 _ : ToRowTypes ty = FromRowTypes ty} -> ValidQuery0 .chk : ({rec:0} : ValidQuery) -> ToRowTypes (ty {rec:0}) = FromRowTypes (ty {rec:0}).qy : ({rec:0} : ValidQuery) -> Query (ty {rec:0}).tr : ({rec:0} : ValidQuery) -> ToRow (ty {rec:0})0 .ty : ValidQuery -> Type0 .ty : ValidQuery -> Type0 ty : ValidQuery -> Type.tr : ({rec:0} : ValidQuery) -> ToRow (ty {rec:0})tr : ({rec:0} : ValidQuery) -> ToRow (ty {rec:0}).qy : ({rec:0} : ValidQuery) -> Query (ty {rec:0})qy : ({rec:0} : ValidQuery) -> Query (ty {rec:0})0 .chk : ({rec:0} : ValidQuery) -> ToRowTypes (ty {rec:0}) = FromRowTypes (ty {rec:0})0 chk : ({rec:0} : ValidQuery) -> ToRowTypes (ty {rec:0}) = FromRowTypes (ty {rec:0})runValid : Has SqlError e => DB => (x : ValidQuery) -> App e (Table (x .ty))0 Errs : List Type0 SQLM : API -> APIDBCmd : API0 DBQry : APICmdCostate : DB => Costate (SQLM DBCmd)DBQueryCostate : DB => Costate (SQLM DBQry)0 SQL : APIDBCostate : DB => Costate (SQLM SQL)execSeqDB : DB => (x : (SQLM (SQL .star)) .message) -> (SQLM (SQL .star)) .response xDBStarCostate : DB => Costate (SQLM (SQL .star))Run any amount of DB queries wrapped in SQL errors