如何使用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}