diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-10-30 15:11:37 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-30 15:11:37 -0400 |
| commit | 5400696e2584c331c6fa6c9627a6c60d08327480 (patch) | |
| tree | 0782e912bb831257c563ede527ee462766d5cb6c /src/prepare.sml | |
| parent | 29212f13093acce8e7d10dbb135b2065893bc9fd (diff) | |
Marshaling time to SQL
Diffstat (limited to 'src/prepare.sml')
| -rw-r--r-- | src/prepare.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/prepare.sml b/src/prepare.sml index 6bf929f0..166f658b 100644 --- a/src/prepare.sml +++ b/src/prepare.sml @@ -45,6 +45,8 @@ fun prepString (e, ss, n) = SOME ("$" ^ Int.toString (n + 1) ^ "::text" :: ss, n + 1) | EFfiApp ("Basis", "sqlifyBool", [e]) => SOME ("$" ^ Int.toString (n + 1) ^ "::bool" :: ss, n + 1) + | EFfiApp ("Basis", "sqlifyTime", [e]) => + SOME ("$" ^ Int.toString (n + 1) ^ "::timestamp" :: ss, n + 1) | ECase (e, [((PCon (_, PConFfi {mod = "Basis", con = "True", ...}, _), _), (EPrim (Prim.String "TRUE"), _)), |