blob: 501788a8a2587fa804de25432a8a6b0c8d69439e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
open ConferenceFields
open Conference.Make(struct
val paper = {Title = title,
Abstract = abstract}
val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: []),
CommentsForAuthors = commentsForAuthors}
val submissionDeadline = readError "2009-11-22 23:59:59"
fun summarizePaper [ctx] [[Body] ~ ctx] r = cdata r.Title
functor Make (M : Conference.INPUT where con paper = [Title = string, Abstract = string]) = struct
open Bid.Make(M)
end
end)
|
