|
|
|
@ -54,6 +54,7 @@ mkYesod |
|
|
|
|
/auth AuthR Auth getAuth |
|
|
|
|
/ HomeR GET |
|
|
|
|
/about AboutR GET |
|
|
|
|
/recycling RecyclingR GET |
|
|
|
|
/blog BlogR GET |
|
|
|
|
/blog/rivers BlogTEMP_RIVERS GET |
|
|
|
|
/projects ProjectsR GET |
|
|
|
@ -160,6 +161,9 @@ getAboutR = defaultLayout (setTitle "dfsek.com - About" >> $(whamletFile "pages/ |
|
|
|
|
getProjectsR :: Handler Html |
|
|
|
|
getProjectsR = defaultLayout (setTitle "dfsek.com - My Projects" >> $(whamletFile "pages/projects.hamlet")) |
|
|
|
|
|
|
|
|
|
getRecyclingR :: Handler Html |
|
|
|
|
getRecyclingR = defaultLayout (setTitle "dfsek.com - Electronics Recycling Services" >> $(whamletFile "pages/recycling.hamlet")) |
|
|
|
|
|
|
|
|
|
getBlogR :: Handler Html |
|
|
|
|
getBlogR = defaultLayout (setTitle "dfsek.com - Blog" >> $(whamletFile "pages/blog.hamlet")) |
|
|
|
|
|
|
|
|
|