快速界面-获取时间

Question

我正在使用Snap接口，我想知道是否有一个函数':：-> Time‘。(或CTime)。

我想得到的时间，当有人访问网页。

Answer 1

Request没有任何时间在其中(您可以从来源查看此信息)。

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

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