Mercurial > urweb
comparison demo/more/conference1.ur @ 1011:16f7cb0891b6
Initial support for char in SQL
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 22 Oct 2009 16:15:56 -0400 |
parents | 59097824f19b |
children | 9304474170ed |
comparison
equal
deleted
inserted
replaced
1010:6b0f3853cc81 | 1011:16f7cb0891b6 |
---|---|
1 open ConferenceFields | 1 open ConferenceFields |
2 | 2 |
3 open Conference.Make(struct | 3 open Conference.Make(struct |
4 val paper = {Title = title, | 4 val paper = {Title = title, |
5 Abstract = abstract} | 5 Abstract = abstract} |
6 val review = {} | 6 val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: [])} |
7 | 7 |
8 val submissionDeadline = readError "2009-10-22 23:59:59" | 8 val submissionDeadline = readError "2009-10-22 23:59:59" |
9 | 9 |
10 fun summarizePaper r = cdata r.Title | 10 fun summarizePaper r = cdata r.Title |
11 end) | 11 end) |