From 756283988dd7d7235c228b3b99e6c7f6c73bf122 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 27 Jun 2009 10:50:45 -0400
Subject: Avoid using prepared statements for non-persistent protocols

---
 src/cjr.sml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/cjr.sml')

diff --git a/src/cjr.sml b/src/cjr.sml
index 2b81de1a..a5931a55 100644
--- a/src/cjr.sml
+++ b/src/cjr.sml
@@ -89,11 +89,11 @@ datatype exp' =
                      query : exp,
                      body : exp,
                      initial : exp,
-                     prepared : int option }
+                     prepared : (int * string) option }
        | EDml of { dml : exp,
-                   prepared : int option }
+                   prepared : (int * string) option }
        | ENextval of { seq : exp,
-                       prepared : int option }
+                       prepared : (int * string) option }
        | EUnurlify of exp * typ
 
 withtype exp = exp' located
-- 
cgit v1.2.3