From 7d189e95615b37106d504415ce21b8eec8710080 Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Sun, 21 Apr 2013 15:58:34 -0400
Subject: Forum: Functorize entry point

---
 forum/forum.ur | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

(limited to 'forum/forum.ur')

diff --git a/forum/forum.ur b/forum/forum.ur
index f680ec4..8cb11da 100644
--- a/forum/forum.ur
+++ b/forum/forum.ur
@@ -16,13 +16,21 @@ details.
 You should have received a copy of the GNU Affero General Public License along
 with 6.947.  If not, see <http://www.gnu.org/licenses/>. *)
 
+functor Make(Template : sig
+    val generic : option string -> xbody -> page
+end) = struct
+
 open Styles
 
-fun main () : xbody =
-    <xml>
-      <div class={content}>
-	<p>
-	  Coming soon!
-	</p>
-      </div>
-    </xml>
+fun main () : transaction page =
+    return (
+        Template.generic (Some "Forum") <xml>
+	  <div class={content}>
+	    <p>
+	      Coming soon!
+	    </p>
+	  </div>
+	</xml>
+    )
+
+end
-- 
cgit v1.2.3