From fcbff8e06b9b519c784f8ba9c7fa9bb8b1b7ae6d Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Tue, 30 Apr 2013 17:57:07 -0400
Subject: Forum: Make entry an optional field

---
 forum/forum.ur | 6 +++---
 1 file 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 ()
-- 
cgit v1.2.3