annotate demo/more/conference1.ur @ 1026:c1f49f6ba856

Switch Monoize back to POST forms
author Adam Chlipala <adamc@hcoop.net>
date Mon, 02 Nov 2009 11:37:41 -0500
parents e46227efcbba
children 53a22f46f377
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@1023 10 fun summarizePaper [ctx] [[Body] ~ ctx] r = cdata r.Title
adamc@1022 11
adamc@1023 12 functor Make (M : Conference.INPUT where con paper = [Title = string, Abstract = string]) = struct
adamc@1022 13 open Bid.Make(M)
adamc@1022 14 end
adamc@1003 15 end)