From 674e428ef6f0edbcc89944cd76d697dd2546e393 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 27 Mar 2011 15:06:02 -0400 Subject: Fix MySQL time handling --- tests/urblog.ur | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 tests/urblog.ur (limited to 'tests/urblog.ur') diff --git a/tests/urblog.ur b/tests/urblog.ur new file mode 100644 index 00000000..9e3cc27f --- /dev/null +++ b/tests/urblog.ur @@ -0,0 +1,35 @@ +table entry : { Id : int, Title : string, Created : time, Author : string, +Body : string } + PRIMARY KEY Id + +fun list () = + rows <- queryX (SELECT * FROM entry) + (fn row => + +

{[row.Entry.Title]}

By {[row.Entry.Author]} at {[row.Entry.Created]}

{[row.Entry.Body]}

+ + ); + return + + + All Entries + + +

All Entries

+ {rows} + + + +fun main () = return + + UrBlog + + + +

UrBlog

+ + -- cgit v1.2.3