[Fencommits] fenserve: turn addPostForm into an HTML

[Tuukka Hastrup]

Sun May 20 21:23:46 EEST 2007  Tuukka Hastrup <Tuukka.Hastrup at iki.fi>
  * turn addPostForm into an HTML
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-20 21:24:43.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-20 21:24:43.000000000 +0300
@@ -195,15 +195,15 @@
           Str "<hr>"]
     where v = [Just $ Var 0]
 
-addPostForm = Str "<h2>Add entry</h2>\n\
-                   \<form action=/potion/addPost method=post>\n\
-                   \<input type=hidden name=count value=3>\n\
-                   \Title: <input name=arg1><br>\n\
-                   \Author: <input name=arg2><br>\n\
-                   \Body:<br><textarea name=arg3></textarea>\n\
-                   \<input type=submit>\n\
-                   \</form>"
-
+addPostForm = HTML [Str "<h2>Add entry</h2>\n\
+                        \<form action=/potion/addPost method=post>\n\
+                        \<input type=hidden name=count value=3>\n\
+                        \Title: <input name=arg1><br>\n\
+                        \Author: <input name=arg2><br>\n\
+                        \Body:<br><textarea name=arg3></textarea>\n\
+                        \<input type=submit>\n\
+                        \</form>"
+              ]
 addPost = 
     Call (show $ AddItemFun "post" ["title","author","body"]) [Just (Var i) | i <- [0..2]]