Commits

Luke Plant committed a208f23

Removed unused routes/view code.

Comments (0)

Files changed (2)

src/Blog/Routes.hs

          , "posts/" <+/> empty                        //-> postsRedirectView      $ []
          , "categories/" <+/> empty                   //-> categoriesView         $ []
          , "categories/" <+/> anyParam                //-> categoryView           $ []
-         , "about/" <+/> empty                        //-> infoPageView "about"   $ []
-         , "feeds/" <+/> empty                        //-> infoPageView "feeds"   $ []
          , "login/" <+/> empty                        //-> loginView              $ []
          , "logout/" <+/> empty                       //-> logoutView             $ []
          , "admin/" <+/> empty                        //-> adminMenu              $ [adminRequired]

src/Blog/Views.hs

           _ -> do commentExtra <- initialCommentExtra req
                   return (NoComment, emptyComment, [], commentExtra)
 
-
--- | View that shows a post as a static information page -- no comments etc.
-infoPageView :: String -> View
-infoPageView slug req = do
-  cn <- connect
-  Just post <- getPostBySlug cn slug
-  t <- get_template "info"
-  return $ Just $ standardResponseTT req $ renderf t ("post", postTemplateInfo post)
-
 -- | View that displays a login form and handles logging in
 loginView :: View
 loginView req = do