Mercurial > urweb

diff demo/more/conference1.ur @ 1023:e46227efcbba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bidding interface
author Adam Chlipala <adamc@hcoop.net>
date Sun, 01 Nov 2009 10:20:20 -0500
parents 4de35df3d545
children 53a22f46f377
line wrap: on
line diff
--- a/demo/more/conference1.ur	Sat Oct 31 15:51:50 2009 -0400
+++ b/demo/more/conference1.ur	Sun Nov 01 10:20:20 2009 -0500
@@ -7,9 +7,9 @@
 
                          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)