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 | 5421d219d4b51b4b8ef18524d5b7db5c4939c36d (patch) | |
| tree | 0782e912bb831257c563ede527ee462766d5cb6c /tests/time.ur | |
| parent | bca91774855a83f677f1a53abd3081258dc3a95c (diff) | |
Marshaling time to SQL
Diffstat (limited to 'tests/time.ur')
| -rw-r--r-- | tests/time.ur | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/time.ur b/tests/time.ur index f6093dd3..f66004a5 100644 --- a/tests/time.ur +++ b/tests/time.ur @@ -4,6 +4,7 @@ val now : time = readError "10/30/08 14:35:42" val later : time = readError "10/30/08 14:37:42" fun main () = + dml (INSERT INTO t (Id, Time) VALUES (42, {now})); xml <- queryX (SELECT * FROM t) (fn r => <xml>{[r.T.Id]}: {[r.T.Time]}<br/></xml>); return <xml><body> |