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}