[Fencommits] fenserve: twiddle start state

[Benja Fallenstein]

Thu May 24 18:12:36 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * twiddle start state
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-24 18:12:42.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-24 18:12:42.000000000 +0300
@@ -200,8 +200,7 @@
                      (Set.fromList ["post"]))
         ])
         (Map.fromList [
-            ("list", Fun [] [HTML "A list of all posts"] potion)
-          , ("addPostForm", Fun [] [HTML "Form for adding posts"] addPostForm)
+            ("Blog_post_archive", Fun [] [HTML "Blog post archive"] potion)
         ])
 
 potion = Forall 0 (Call (show $ CatFun "post") []) $
@@ -211,18 +210,6 @@
                     Str "\n<hr>"])
     where v = [Just $ Var 0]
 
-addPostForm = Concat $ map Just [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]]
-
 view = do
     (state :: MyState) <- get
     {-