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