Snap界面 - 获取时间

Question

我正在使用Snap界面，我想知道是否有一个函数':: Request - ＆gt;时间'。 （或CTime）。

我希望有时间有人访问该网页。

Answer 1

Request没有任何时间（你可以从source查看）。

但是你可以在处理请求时获得当前时间：

import Data.Time.Clock (getCurrentTime)
import Data.Time.Format
import qualified Data.Text as T

someHandler :: Handler App App ()
someHandler = do
  utcTime <- liftIO getCurentTime
  writeText $ T.pack $ formatTime undefined "%F %T" utcTime