Mercurial > urweb
annotate demo/more/conference1.ur @ 1029:53a22f46f377
Seeing others' reviews
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Mon, 02 Nov 2009 14:22:29 -0500 |
| parents | e46227efcbba |
| children | 6bcc1020d5cd |
| rev | line source |
|---|---|
| adamc@1007 | 1 open ConferenceFields |
| adamc@1007 | 2 |
| adamc@1003 | 3 open Conference.Make(struct |
| adamc@1007 | 4 val paper = {Title = title, |
| adamc@1007 | 5 Abstract = abstract} |
| adamc@1029 | 6 val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: []), |
| adamc@1029 | 7 CommentsForAuthors = commentsForAuthors} |
| adamc@1006 | 8 |
| adamc@1018 | 9 val submissionDeadline = readError "2009-11-22 23:59:59" |
| adamc@1009 | 10 |
| adamc@1023 | 11 fun summarizePaper [ctx] [[Body] ~ ctx] r = cdata r.Title |
| adamc@1022 | 12 |
| adamc@1023 | 13 functor Make (M : Conference.INPUT where con paper = [Title = string, Abstract = string]) = struct |
| adamc@1022 | 14 open Bid.Make(M) |
| adamc@1022 | 15 end |
| adamc@1003 | 16 end) |