getProfile :: (MonadThrow m, MonadIO m, MonadBaseControl IO m, Tupled a) =>
  a ->
  m (L.ByteString)
getProfile auth = 
    makeRequest POST (baseUrl <> "profile.get.json") (asTuple auth)
getProfile :: (MonadThrow m, MonadIO m, MonadBaseControl IO m, Tupled a) =>
  a ->
  m (L.ByteString)
getProfile auth = 
    makeRequest POST (baseUrl <> "profile.get.json") (asTuple auth)
getProfile auth = 
    makeRequest POST (baseUrl <> "profile.get.json") (asTuple auth)