diff options
Diffstat (limited to 'Handler')
| -rw-r--r-- | Handler/Category.hs | 4 | ||||
| -rw-r--r-- | Handler/Employment.hs | 4 | ||||
| -rw-r--r-- | Handler/Home.hs | 2 | ||||
| -rw-r--r-- | Handler/Vacation.hs | 2 |
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 |