sessionToken :: Context -> Text -> Text -> IO Token
sessionToken context username password =
  either throwM pure =<<
  fmap parseLogin . getDecodedResponse context =<<
  loginRequest context username password
sessionToken :: Context -> Text -> Text -> IO Token
sessionToken context username password =
  either throwM pure =<<
  fmap parseLogin . getDecodedResponse context =<<
  loginRequest context username password
sessionToken context username password =
  either throwM pure =<<
  fmap parseLogin . getDecodedResponse context =<<
  loginRequest context username password