Commits

Luke Plant  committed f5a6a95

Removed redundant 'aboutView' and 'feedsView'

  • Participants
  • Parent commits 9087f7e

Comments (0)

Files changed (2)

File src/Blog/Routes.hs

          , "posts/" <+/> empty                        //-> postsRedirectView      $ []
          , "categories/" <+/> empty                   //-> categoriesView         $ []
          , "categories/" <+/> anyParam                //-> categoryView           $ []
-         , "about/" <+/> empty                        //-> aboutView              $ []
-         , "feeds/" <+/> empty                        //-> feedsView              $ []
+         , "about/" <+/> empty                        //-> infoPageView "about"   $ []
+         , "feeds/" <+/> empty                        //-> infoPageView "feeds"   $ []
          , "debug/" <+/> anyParam                     //-> debug                  $ []
          ]

File src/Blog/Views.hs

   where
     handleUserComment cn post req = return (undefined, undefined)
 
-
+-- | View that shows a post as a static information page -- no comments etc.
 infoPageView slug req = do
   cn <- connect
   Just post <- getPostBySlug cn slug
   return $ Just $ standardResponse $ infoPage post
 
-aboutView = infoPageView "about"
-feedsView = infoPageView "feeds"
-
 -- Utilities
 
 getPage req = (getGET "p" req) `captureOrDefault` 1 :: Int