diff options
author | 2009-11-02 15:48:06 -0500 | |
---|---|---|
committer | 2009-11-02 15:48:06 -0500 | |
commit | 72664fd130cf983bc2d3cbc0aacd6776625a71b1 (patch) | |
tree | e891f485d240c659d16bcaa8843d8e4d1911c055 /demo/more/conference1.ur | |
parent | 7491cad2aabb379a0d6b2bb5234634c183b3dba2 (diff) |
Start of Decision
Diffstat (limited to 'demo/more/conference1.ur')
-rw-r--r-- | demo/more/conference1.ur | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/demo/more/conference1.ur b/demo/more/conference1.ur index 501788a8..55aa1241 100644 --- a/demo/more/conference1.ur +++ b/demo/more/conference1.ur @@ -3,14 +3,21 @@ open ConferenceFields open Conference.Make(struct val paper = {Title = title, Abstract = abstract} + val paperPrivate = {Decision = Decision.decision} 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 + fun summarizePaper [ctx] [[Body] ~ ctx] r = txt r.Title - functor Make (M : Conference.INPUT where con paper = [Title = string, Abstract = string]) = struct - open Bid.Make(M) + functor Make (M : Conference.INPUT where con paper = _) = struct + open Conference.Join(struct + structure O1 = Bid.Make(M) + structure O2 = Decision.Make(struct + con paperOther = _ + open M + end) + end) end end) |