Permalink
Browse files

Add contact page handler

  • Loading branch information...
1 parent 3be41ee commit ced43db024b7777fc7dd81496ecc31ec249cf9c2 @gregorycollins committed Mar 28, 2009
Showing with 8 additions and 0 deletions.
  1. +8 −0 src/Homepage/Handlers.hs
View
@@ -28,6 +28,7 @@ topLevelHandler =
-- compressedResponseFilter
frontpage `mappend`
aboutpage `mappend`
+ contactpage `mappend`
(liftH staticfiles) `mappend`
temporaryPosts `mappend`
fourohfour
@@ -47,6 +48,13 @@ aboutpage =
("posts" :: String))
+contactpage :: HomepageHandler
+contactpage =
+ exactdir "/about" $ do
+ serveTemplate' "." "contact" (setAttribute "whichCss"
+ ("posts" :: String))
+
+
temporaryPosts :: HomepageHandler
temporaryPosts = do
postContent <- lift $ (getTemplate "." "temppost1") >>=

0 comments on commit ced43db

Please sign in to comment.