如何使用Yesod模板语言显示当前时间？

Question

由于IO can not be used inside Yesod Template，如何在页面上显示简单的当前时间？

在我.hamlet文件，是这样的：

<h2> 
#{show $ getCurrentTime } 

getCurrentTime :: IO UTCTime 

Answer 1

换句话说，你需要的模板之外运行IO动作。

这外意味着模板的处理。所以我会这样写。

-- Home.hs 
getHomeR = do 
    time <- liftIO getCurrentTime 
    defaultLayout $(widgetFile "homepage") 

-- homepage.hamlet 
<h2>#{show time}