diff options
Diffstat (limited to 'src/mono_opt.sml')
| -rw-r--r-- | src/mono_opt.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index 3946684a..8be532aa 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -81,12 +81,12 @@ val urlifyString = String.translate (fn #" " => "+" "%" ^ hexIt ch) -val sqlifyInt = attrifyInt -val sqlifyFloat = attrifyFloat +fun sqlifyInt n = attrifyInt n ^ "::int8" +fun sqlifyFloat n = attrifyFloat n ^ "::float8" fun sqlifyString s = "E'" ^ String.translate (fn #"'" => "\\'" | ch => str ch) - (String.toString s) ^ "'" + (String.toString s) ^ "'::text" fun exp e = case e of |