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 /tests/time.ur | |
| parent | 29212f13093acce8e7d10dbb135b2065893bc9fd (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> |