From f113778e17be9124615ccc1ba684cb4a832f9408 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <viam@humac.com>
Date: Mon, 5 Mar 2012 05:27:20 +0100
Subject: * began work on commentBox

---
 src/Blog.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'src/Blog.hs')

diff --git a/src/Blog.hs b/src/Blog.hs
index 575ec04fcf8a..62de9be0f442 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -102,6 +102,20 @@ renderEntry entry = H.div ! A.class_ "innerBox" $ do
         H.div ! A.class_ "innerBoxComments" $ do
             H.div ! A.name "cHead" ! A.style "font-size:large;font-weight:bold;" $ toHtml $ cHead (lang entry)
             H.ul $ renderComments (comments entry) (lang entry)
+            renderCommentBox $ lang entry
+
+renderCommentBox :: BlogLang -> Html
+renderCommentBox lang = do
+    H.div ! A.name "cHead" $ toHtml $ cwHead lang
+    H.form $ do
+        H.p $ H.label $ do
+            toHtml ("Name:" :: String)
+            H.input 
+{-
+<form>
+ <p><label>Customer name: <input></label></p>
+</form>
+-}
 
 renderComments :: [Comment] -> BlogLang -> Html
 renderComments [] lang = H.li $ toHtml $ noComments lang
-- 
cgit 1.4.1