diff src/prepare.sml @ 879:b2a175a0f2ef

Demo working with MySQL
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Jul 2009 18:10:29 -0400
parents a8952047e1d3
children 467285bb5578
line wrap: on
line diff
--- a/src/prepare.sml	Thu Jul 16 16:29:13 2009 -0400
+++ b/src/prepare.sml	Thu Jul 16 18:10:29 2009 -0400
@@ -199,7 +199,7 @@
                 in
                     ((EQuery {exps = exps, tables = tables, rnum = rnum,
                               state = state, query = query, body = body,
-                              initial = initial, prepared = SOME (#2 sns, s)}, loc),
+                              initial = initial, prepared = SOME {id = #2 sns, query = s, nested = true}}, loc),
                      ((s, n) :: #1 sns, #2 sns + 1))
                 end
         end
@@ -211,7 +211,7 @@
              let
                  val s = String.concat (rev ss)
              in
-                 ((EDml {dml = dml, prepared = SOME (#2 sns, s)}, loc),
+                 ((EDml {dml = dml, prepared = SOME {id = #2 sns, dml = s}}, loc),
                   ((s, n) :: #1 sns, #2 sns + 1))
              end)
 
@@ -234,7 +234,7 @@
                     let
                         val s = String.concat (rev ss)
                     in
-                        ((ENextval {seq = seq, prepared = SOME (#2 sns, s)}, loc),
+                        ((ENextval {seq = seq, prepared = SOME {id = #2 sns, query = s}}, loc),
                          ((s, n) :: #1 sns, #2 sns + 1))
                     end
             end