From 515338784b8fc2fb5435ee4e061c092ff754d6cf Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Thu, 24 Oct 2013 15:34:15 -0400 Subject: Use newer persistent and newer Yesod --- Handler/Category.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Handler/Category.hs') 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 -- cgit v1.2.3