defaultLayoutがどうなっているのか気になったので、ソースコードを追いかけてみた。
messageの処理とwidget埋め込みをやるようになっていた。
defaultLayout :: GWidget sub a () -> GHandler sub a RepHtml defaultLayout w = do p <- widgetToPageContent w mmsg <- getMessage hamletToRepHtml [hamlet| $newline never $doctype 5 <html> <head> <title>#{pageTitle p} ^{pageHead p} <body> $maybe msg <- mmsg <p .message>#{msg} ^{pageBody p} |]
Developing Web Applications With Haskell and YesodMichael Snoyman
Oreilly & Associates Inc / 2805円 ( 2012-05-04 )