Mercurial > urweb
annotate demo/more/conference1.ur @ 1022:4de35df3d545
Start of bidding implementation compiles
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 31 Oct 2009 15:51:50 -0400 |
parents | 9304474170ed |
children | e46227efcbba |
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@1011 | 6 val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: [])} |
adamc@1006 | 7 |
adamc@1018 | 8 val submissionDeadline = readError "2009-11-22 23:59:59" |
adamc@1009 | 9 |
adamc@1009 | 10 fun summarizePaper r = cdata r.Title |
adamc@1022 | 11 |
adamc@1022 | 12 functor Make (M : Conference.INPUT where con paper = _) = struct |
adamc@1022 | 13 open Bid.Make(M) |
adamc@1022 | 14 end |
adamc@1003 | 15 end) |