Mercurial > urweb
annotate demo/more/conference1.ur @ 1018:9304474170ed
Extend Fuse to work on non-recursive functions
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 25 Oct 2009 13:02:13 -0400 |
| parents | 16f7cb0891b6 |
| children | 4de35df3d545 |
| 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@1009 | 10 fun summarizePaper r = cdata r.Title |
| adamc@1003 | 11 end) |