__currentTime <- liftIO $ getCurrentTime