slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

web: fix HandlerT warnings

Browse Source
This commit is contained in:
Simon Michael 2018-03-25 13:07:58 +01:00
parent b74c805b69
commit 1fe3d7e824
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-web/Foundation.hs
View File

@ -92,7 +92,7 @@ mkYesodData "App" $(parseRoutesFile "config/routes")
-- | A convenience alias. -- | A convenience alias.
type AppRoute = Route App 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 -- Please see the documentation for the Yesod typeclass. There are a number
-- of settings which can be configured by overriding methods here. -- of settings which can be configured by overriding methods here.

2
hledger-web/Handler/Common.hs
View File

@ -28,7 +28,7 @@ import Hledger.Web.WebOptions
-- Common page layout -- Common page layout
-- | Standard hledger-web 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 hledgerLayout vd title content = do
defaultLayout $ do defaultLayout $ do
setTitle $ toHtml $ title ++ " - hledger-web" setTitle $ toHtml $ title ++ " - hledger-web"