| 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
fun boolFromSql v = boolFromSql' (valueOf v)
end
-structure PgClient = SqlClient(PgDriver)
\ No newline at end of file
+structure PgClient = SqlClient(PgDriver)