diff options
Diffstat (limited to 'Handler/Employment.hs')
| -rw-r--r-- | Handler/Employment.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |