diff options
| author | Clint Adams <clint@softwarefreedom.org> | 2015-02-05 11:34:26 -0500 |
|---|---|---|
| committer | Clint Adams <clint@softwarefreedom.org> | 2015-02-05 11:34:26 -0500 |
| commit | b442c48cbaa1a1cfae4e42aa03bc41e33f2710f9 (patch) | |
| tree | c4d9c6e18f99e31fd79f0f2c82646ecd0f1d4f08 /Handler/Employment.hs | |
| parent | ce4987aa71deb27970b2623a706349862a942ef4 (diff) | |
newer yesod stuff
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) |