fiveMinAgo :: Handler UTCTime
fiveMinAgo = do
  curTime <- liftIO getCurrentTime
  return $ addUTCTime (-5 * 60) curTime
fiveMinAgo :: Handler UTCTime
fiveMinAgo = do
  curTime <- liftIO getCurrentTime
  return $ addUTCTime (-5 * 60) curTime
fiveMinAgo = do
  curTime <- liftIO getCurrentTime
  return $ addUTCTime (-5 * 60) curTime