summaryrefslogtreecommitdiff
path: root/Handler
diff options
context:
space:
mode:
authorClint Adams <clint@softwarefreedom.org>2015-02-05 11:34:26 -0500
committerClint Adams <clint@softwarefreedom.org>2015-02-05 11:34:26 -0500
commitb442c48cbaa1a1cfae4e42aa03bc41e33f2710f9 (patch)
treec4d9c6e18f99e31fd79f0f2c82646ecd0f1d4f08 /Handler
parentce4987aa71deb27970b2623a706349862a942ef4 (diff)
newer yesod stuff
Diffstat (limited to 'Handler')
-rw-r--r--Handler/Category.hs4
-rw-r--r--Handler/Employment.hs4
-rw-r--r--Handler/Home.hs2
-rw-r--r--Handler/Vacation.hs2
4 files changed, 6 insertions, 6 deletions
diff --git a/Handler/Category.hs b/Handler/Category.hs
index 73d9128..d4d4803 100644
--- a/Handler/Category.hs
+++ b/Handler/Category.hs
@@ -4,7 +4,7 @@ module Handler.Category where
import Import
import qualified Data.Text as T
-getCategoryR :: TimeCategoryId -> Handler RepHtml
+getCategoryR :: TimeCategoryId -> Handler Html
getCategoryR tcid = do
cat <- runDB $ get404 tcid
(formWidget, formEnctype) <- generateFormPost (timeCategoryForm cat)
@@ -13,7 +13,7 @@ getCategoryR tcid = do
(setTitle . toHtml) ("Time category " `T.append` timeCategoryName cat)
$(widgetFile "categorypage")
-postCategoryR :: TimeCategoryId -> Handler RepHtml
+postCategoryR :: TimeCategoryId -> Handler Html
postCategoryR tcid = do
cat <- runDB $ get404 tcid
((result, formWidget), formEnctype) <- runFormPost (timeCategoryForm cat)
diff --git a/Handler/Employment.hs b/Handler/Employment.hs
index ce31dd1..55057a9 100644
--- a/Handler/Employment.hs
+++ b/Handler/Employment.hs
@@ -5,7 +5,7 @@ import Import
import qualified Data.Text as T
import Yesod.Form.Jquery (jqueryDayField, def)
-getEmploymentR :: EmploymentId -> Handler RepHtml
+getEmploymentR :: EmploymentId -> Handler Html
getEmploymentR eid = do
emp <- runDB $ get404 eid
user <- runDB $ get404 (employmentUser emp)
@@ -16,7 +16,7 @@ getEmploymentR eid = do
(setTitle . toHtml) ("Employment span for " `T.append` username)
$(widgetFile "employmentpage")
-postEmploymentR :: EmploymentId -> Handler RepHtml
+postEmploymentR :: EmploymentId -> Handler Html
postEmploymentR eid = do
emp <- runDB $ get404 eid
user <- runDB $ get404 (employmentUser emp)
diff --git a/Handler/Home.hs b/Handler/Home.hs
index 247e55e..7fed6dd 100644
--- a/Handler/Home.hs
+++ b/Handler/Home.hs
@@ -3,7 +3,7 @@ module Handler.Home where
import Import
-getHomeR :: Handler RepHtml
+getHomeR :: Handler Html
getHomeR = do
people <- runDB $ selectList [] []
defaultLayout $ do
diff --git a/Handler/Vacation.hs b/Handler/Vacation.hs
index b9e1217..18a96cb 100644
--- a/Handler/Vacation.hs
+++ b/Handler/Vacation.hs
@@ -9,7 +9,7 @@ import Data.Time.Clock (getCurrentTime, UTCTime, utctDay)
import Yesod.Auth (maybeAuth)
import PTO
-getVacationR :: UserId -> Handler RepHtml
+getVacationR :: UserId -> Handler Html
getVacationR cid = do
user <- runDB $ get404 cid
ma <- maybeAuth