This commit is contained in:
patrick brisbin 2018-01-26 09:36:34 -05:00
parent 041a9a318b
commit 3d6c07221c

View File

@ -143,6 +143,6 @@ toCreds name user token = Creds
, ("access_token", atoken $ accessToken token)
]
++ maybeExtra "refresh_token" (rtoken <$> refreshToken token)
++ maybeExtra "expires_in" ((T.pack . show) <$> expiresIn token)
++ maybeExtra "expires_in" (T.pack . show <$> expiresIn token)
++ maybeExtra "phone_number" (userPhone user)
}