summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenjamin Barenblat <bbaren@mit.edu>2013-04-30 17:57:07 -0400
committerBenjamin Barenblat <bbaren@mit.edu>2013-04-30 17:57:07 -0400
commitfcbff8e06b9b519c784f8ba9c7fa9bb8b1b7ae6d (patch)
tree4d7eebfcf41972cb55765f6054bcf96c01be0497
parent8eeb0838dd232592ea4bc0e6478f38cd6a68049d (diff)
Forum: Make entry an optional field
-rw-r--r--forum/forum.ur6
1 files changed, 3 insertions, 3 deletions
diff --git a/forum/forum.ur b/forum/forum.ur
index 49acd18..2a43567 100644
--- a/forum/forum.ur
+++ b/forum/forum.ur
@@ -31,7 +31,7 @@ style entryBody
table entry : { Id : int,
References : option int,
Class : EntryClass.entryClass,
- Title : string,
+ Title : option string,
Body : string,
Author : author
} PRIMARY KEY Id
@@ -92,7 +92,7 @@ and reply qId submission =
VALUES ({[id]},
{[Some qId]},
{[EntryClass.answer]},
- {[""]},
+ {[None]},
{[submission.Body]},
{[readError submission.Author]}));
detail qId
@@ -164,7 +164,7 @@ and ask submission =
VALUES ({[id]},
{[None]},
{[EntryClass.question]},
- {[submission.Title]},
+ {[Some submission.Title]},
{[submission.Body]},
{[readError submission.Author]}));
main ()