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