adamc@1007: open ConferenceFields
adamc@1007: 
adamc@1003: open Conference.Make(struct
adamc@1007:                          val paper = {Title = title,
adamc@1007:                                       Abstract = abstract}
adamc@1011:                          val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: [])}
adamc@1006: 
adamc@1018:                          val submissionDeadline = readError "2009-11-22 23:59:59"
adamc@1009: 
adamc@1009:                          fun summarizePaper r = cdata r.Title
adamc@1003:                      end)