comparison demo/more/conference1.ur @ 1011:16f7cb0891b6

Initial support for char in SQL
author Adam Chlipala <adamc@hcoop.net>
date Thu, 22 Oct 2009 16:15:56 -0400
parents 59097824f19b
children 9304474170ed
comparison
equal deleted inserted replaced
1010:6b0f3853cc81 1011:16f7cb0891b6
1 open ConferenceFields 1 open ConferenceFields
2 2
3 open Conference.Make(struct 3 open Conference.Make(struct
4 val paper = {Title = title, 4 val paper = {Title = title,
5 Abstract = abstract} 5 Abstract = abstract}
6 val review = {} 6 val review = {Rating = dropdown "Rating" (#"A" :: #"B" :: #"C" :: #"D" :: [])}
7 7
8 val submissionDeadline = readError "2009-10-22 23:59:59" 8 val submissionDeadline = readError "2009-10-22 23:59:59"
9 9
10 fun summarizePaper r = cdata r.Title 10 fun summarizePaper r = cdata r.Title
11 end) 11 end)