X-Git-Url: https://git.hcoop.net/hcoop/smlsql.git/blobdiff_plain/8c0e760706fe94c8e1f0db30895075b27d059cee..69b0d5cf2a629b02a57a3777d02fdbf3654c416e:/libpq/pg.sml

diff --git a/libpq/pg.sml b/libpq/pg.sml
index 1b99da2..09c761a 100644
--- a/libpq/pg.sml
+++ b/libpq/pg.sml
@@ -158,7 +158,7 @@ struct
 	      | xch #"\r" = "\\r"
 	      | xch c = str c
 	in
-	    foldl (fn (c, s) => s ^ xch c) "'" (String.explode s) ^ "'"
+	    foldl (fn (c, s) => s ^ xch c) "E'" (String.explode s) ^ "'"
 	end
     val stringFromSql = valueOf
 
@@ -284,4 +284,4 @@ struct
     fun boolFromSql v = boolFromSql' (valueOf v)
 end
 
-structure PgClient = SqlClient(PgDriver)
\ No newline at end of file
+structure PgClient = SqlClient(PgDriver)