diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs
index b3dd2e105..169663ec1 100644
--- a/hledger-web/Foundation.hs
+++ b/hledger-web/Foundation.hs
@@ -92,7 +92,7 @@ mkYesodData "App" $(parseRoutesFile "config/routes")
 -- | A convenience alias.
 type AppRoute = Route App
 
-type Form x = Html -> MForm (HandlerT App IO) (FormResult x, Widget)
+type Form x = Html -> MForm (HandlerFor App) (FormResult x, Widget)
 
 -- Please see the documentation for the Yesod typeclass. There are a number
 -- of settings which can be configured by overriding methods here.
diff --git a/hledger-web/Handler/Common.hs b/hledger-web/Handler/Common.hs
index 56072f398..bf1f0b5ef 100644
--- a/hledger-web/Handler/Common.hs
+++ b/hledger-web/Handler/Common.hs
@@ -28,7 +28,7 @@ import Hledger.Web.WebOptions
 -- Common page layout
 
 -- | Standard hledger-web page layout.
-hledgerLayout :: ViewData -> String -> HtmlUrl AppRoute -> HandlerT App IO Html
+hledgerLayout :: ViewData -> String -> HtmlUrl AppRoute -> HandlerFor App Html
 hledgerLayout vd title content = do
   defaultLayout $ do
       setTitle $ toHtml $ title ++ " - hledger-web"