diff options
Diffstat (limited to 'Handler/Category.hs')
| -rw-r--r-- | Handler/Category.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Handler/Category.hs b/Handler/Category.hs index 6a2c6df..73d9128 100644 --- a/Handler/Category.hs +++ b/Handler/Category.hs @@ -9,7 +9,7 @@ getCategoryR tcid = do cat <- runDB $ get404 tcid (formWidget, formEnctype) <- generateFormPost (timeCategoryForm cat) defaultLayout $ do - aDomId <- lift newIdent + aDomId <- newIdent (setTitle . toHtml) ("Time category " `T.append` timeCategoryName cat) $(widgetFile "categorypage") @@ -22,14 +22,14 @@ postCategoryR tcid = do _ -> return () defaultLayout $ do - aDomId <- lift newIdent + aDomId <- newIdent (setTitle . toHtml) ("Time category " `T.append` timeCategoryName cat) $(widgetFile "categorypage") -timeCategoryAForm :: TimeCategory -> AForm App App TimeCategory +timeCategoryAForm :: TimeCategory -> AForm Handler TimeCategory timeCategoryAForm tc = TimeCategory <$> pure (timeCategoryName tc) <*> areq checkBoxField "Disable" (Just (timeCategoryDisabled tc)) -timeCategoryForm :: TimeCategory -> Html -> MForm App App (FormResult TimeCategory, Widget) +timeCategoryForm :: TimeCategory -> Html -> MForm Handler (FormResult TimeCategory, Widget) timeCategoryForm tc h = renderDivs (timeCategoryAForm tc) h |