adam@1443: table entry : { Id : int, Title : string, Created : time, Author : string,
adam@1443: Body : string }
adam@1443: PRIMARY KEY Id
adam@1443:
adam@1443: fun list () =
adam@1443: rows <- queryX (SELECT * FROM entry)
adam@1443: (fn row =>
adam@1443:
adam@1443:
adam@1443:
{[row.Entry.Title]}
adam@1443:
By {[row.Entry.Author]} at {[row.Entry.Created]}
adam@1443:
{[row.Entry.Body]}
adam@1443:
All Entries
adam@1443: {rows}
adam@1443:
adam@1443:
adam@1443:
adam@1443: fun main () = return
adam@1443:
adam@1443: UrBlog
adam@1443:
adam@1443:
adam@1443:
adam@1443: UrBlog
adam@1443:
adam@1443: