Интерфейс привязки - получение времени

Question

Я использую интерфейс Snap, и мне интересно, есть ли функция «:: Request -> Time». (или 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