From 2dd6e83e23759ef4f5a27e399e43636881449345 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 25 Apr 2009 14:04:38 -0400 Subject: Prepared statements with blobs --- src/prepare.sml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/prepare.sml') diff --git a/src/prepare.sml b/src/prepare.sml index e1777b11..52308540 100644 --- a/src/prepare.sml +++ b/src/prepare.sml @@ -47,6 +47,8 @@ fun prepString (e, ss, n) = SOME ("$" ^ Int.toString (n + 1) ^ "::bool" :: ss, n + 1) | EFfiApp ("Basis", "sqlifyTime", [e]) => SOME ("$" ^ Int.toString (n + 1) ^ "::timestamp" :: ss, n + 1) + | EFfiApp ("Basis", "sqlifyBlob", [e]) => + SOME ("$" ^ Int.toString (n + 1) ^ "::bytea" :: ss, n + 1) | EFfiApp ("Basis", "sqlifyChannel", [e]) => SOME ("$" ^ Int.toString (n + 1) ^ "::int8" :: ss, n + 1) | EFfiApp ("Basis", "sqlifyClient", [e]) => -- cgit v1.2.3