[Fencommits] fenserve: make the homepage a redirect to the first page in the sidebar

[Benja Fallenstein]

Thu May 24 22:38:43 EEST 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * make the homepage a redirect to the first page in the sidebar
diff -rN -u old-fenserve/fendata/Main.hs new-fenserve/fendata/Main.hs
--- old-fenserve/fendata/Main.hs	2007-05-24 22:38:49.000000000 +0300
+++ new-fenserve/fendata/Main.hs	2007-05-24 22:38:49.000000000 +0300
@@ -221,28 +221,6 @@
                     Str "\n<hr>"])
     where v = [Just $ Var 0]
 
-view = do
-    (state :: MyState) <- get
-    {-
-    let category (name,fields) = "<h3>" ++ name ++ "</h3>\n"
-                  ++ concatMap field fields
-                  ++ "<p>Add field: "
-                  ++ "<form method=post action=addfield>"
-                  ++ "<input type=text name=name>"
-                  ++ "<input type=hidden name=category value=" ++ name ++ ">"
-                  ++ "</form>"
-        field name = name ++ "<br>\n"
-    respond $ "<h2>Categories</h2>"
-           ++ "<p>Add category: "
-           ++ "<form method=post action=addCategory>"
-           ++ "<input type=text name=name>"
-           ++ "</form>"
-           ++ concatMap category (Map.toList $ stateSchema state) 
-    -}
-    respond $ html $ header +++ (catFor (getPotions state) $ \exp ->
-         para $ link ("potion?exp="++(escape $ show exp)) $
-         let ?state = state; ?link=False; ?name=Nothing in renderExp' exp id string)
-           
 instance FromMessage (String,String) where
     fromMessageM m = do cat <- lookM m "category"; name <- lookM m "name" 
                         return (cat, name)
@@ -543,7 +521,7 @@
                , h ["newItem"] POST $ seeOther $ \() -> runRedirect newItem
                , h ["delItem"] POST $ seeOther $ \() -> runRedirect delItem
                
-               , h [""] GET  $ ok $ \() () -> view
+               , h [""] GET  $ seeOther $ \() -> runRedirect $ \() s -> ("/potion?exp=" ++ (escape' $ show $ head $ stateSidebarPages s), s)
                , h ["addField"] GET $ ok $ \() req -> 
                    let Just cat = lookM req "category"
                        Just item = lookM req "item"