adamc@1007: open ConferenceFields
adamc@1007: 
adamc@1003: open Conference.Make(struct
adamc@1007:                          val paper = {Title = title,
adamc@1007:                                       Abstract = abstract}
adamc@1029:                          val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: []),
adamc@1029:                                        CommentsForAuthors = commentsForAuthors}
adamc@1006: 
adamc@1018:                          val submissionDeadline = readError "2009-11-22 23:59:59"
adamc@1009: 
adamc@1023:                          fun summarizePaper [ctx] [[Body] ~ ctx] r = cdata r.Title
adamc@1022: 
adamc@1023:                          functor Make (M : Conference.INPUT where con paper = [Title = string, Abstract = string]) = struct
adamc@1022:                              open Bid.Make(M)
adamc@1022:                          end
adamc@1003:                      end)