Ran a prepared statement with one string parameter

1 files changed, 8 insertions, 1 deletions

diff --git a/src/compiler.sml b/src/compiler.sml
index 263aaf9a..773cf578 100644
--- a/src/compiler.sml
+++ b/src/compiler.sml
@@ -451,6 +451,13 @@ val cjrize = {
 
 val toCjrize = transform cjrize "cjrize" o toMono_opt2
 
+val prepare = {
+    func = Prepare.prepare,
+    print = CjrPrint.p_file CjrEnv.empty
+}
+
+val toPrepare = transform prepare "prepare" o toCjrize
+
 val sqlify = {
     func = Cjrize.cjrize,
     print = CjrPrint.p_sql CjrEnv.empty
@@ -472,7 +479,7 @@ fun compileC {cname, oname, ename} =
     end
 
 fun compile job =
-    case run toCjrize job of
+    case run toPrepare job of
         NONE => print "Ur compilation failed\n"
       | SOME file =>
         let