String quoting for SQL queries

diff --git a/src/lib/sql.sig b/src/lib/sql.sig
new file mode 100644 (file)
index 0000000..4f01327
--- /dev/null
+++ b/src/lib/sql.sig
@@ -0,0 +1,4 @@
+signature SQL =
+sig
+    val $ : string SMLofNJ.frag list -> string
+end
\ No newline at end of file

diff --git a/src/lib/sql.sml b/src/lib/sql.sml
new file mode 100644 (file)
index 0000000..d885d17
--- /dev/null
+++ b/src/lib/sql.sml
@@ -0,0 +1,4 @@
+structure Sql :> SQL =
+struct
+    val $ = String.concat o (List.map (fn SMLofNJ.QUOTE s => s | SMLofNJ.ANTIQUOTE s => s))
+end
\ No newline at end of file