cessToken
makeAccessToken domain me scope clientId = do
  secs ← getSecs
  now ← liftIO getCurrentTime
  return $ AccessToken { accessToken = signAccessToken (secretKey secs) domain me now scope clientId
                       , scope = scope
                       , clientId = clientId
                       , me = me }

-- | Token endpoint
postLogin ∷ Maybe Text → [(Text, Text)] → Sweetroll AccessToken
postLog
makeAccessToken ∷ Text → Text → Text → Text → Sweetroll AccessToken
makeAccessToken domain me scope clientId = do
  secs ← getSecs
  now ← liftIO getCurrentTime
  return $ AccessToken { accessToken = signAccessToken (secretKey secs) domain me now scope clientId
                       , scope = scope
                       , clientId = clientId
                       , me = me }

-- | Token endpoint
makeAccessToken domain me scope clientId = do
  secs ← getSecs
  now ← liftIO getCurrentTime
  return $ AccessToken { accessToken = signAccessToken (secretKey secs) domain me now scope clientId
                       , scope = scope
                       , clientId = clientId
                       , me = me }

-- | Token endpoint