From ec734c14f2569e58e462097d5953a26f9fa84f69 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Fri, 17 Jul 2009 12:25:34 -0400 Subject: Testing nested queries --- src/settings.sml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/settings.sml') diff --git a/src/settings.sml b/src/settings.sml index 812e323f..d47e7d0e 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -321,12 +321,13 @@ type dbms = { views : (string * (string * sql_type) list) list, sequences : string list} -> Print.PD.pp_desc, query : {loc : ErrorMsg.span, cols : sql_type list, - doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc) + doCols : ({loc : ErrorMsg.span, wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc) -> Print.PD.pp_desc} -> Print.PD.pp_desc, queryPrepared : {loc : ErrorMsg.span, id : int, query : string, inputs : sql_type list, cols : sql_type list, - doCols : ({wontLeakStrings : bool, col : int, typ : sql_type} -> Print.PD.pp_desc) + doCols : ({loc : ErrorMsg.span, wontLeakStrings : bool, col : int, + typ : sql_type} -> Print.PD.pp_desc) -> Print.PD.pp_desc, nested : bool} -> Print.PD.pp_desc, -- cgit v1.2.3