diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-11-01 10:20:20 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-11-01 10:20:20 -0500 |
| commit | e20e964083a048ad4cbb88cc1af3790694f51dfa (patch) | |
| tree | 09a704610f44afd4ad023245a9f59d901c3c4345 /demo/more/conference1.ur | |
| parent | 1be7e54fa70a40b16164f69e7153ada0e4935994 (diff) | |
Bidding interface
Diffstat (limited to 'demo/more/conference1.ur')
| -rw-r--r-- | demo/more/conference1.ur | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demo/more/conference1.ur b/demo/more/conference1.ur index c51904e5..f8272b4f 100644 --- a/demo/more/conference1.ur +++ b/demo/more/conference1.ur @@ -7,9 +7,9 @@ open Conference.Make(struct val submissionDeadline = readError "2009-11-22 23:59:59" - fun summarizePaper r = cdata r.Title + fun summarizePaper [ctx] [[Body] ~ ctx] r = cdata r.Title - functor Make (M : Conference.INPUT where con paper = _) = struct + functor Make (M : Conference.INPUT where con paper = [Title = string, Abstract = string]) = struct open Bid.Make(M) end end) |