buildClient :: Maybe Text -> IO Client
buildClient accessToken = do
  manager <- newManager
  return Client
    { client_accessToken = maybe "" unpack accessToken
    , client_requester = flip httpLbs manager
    }
buildClient :: Maybe Text -> IO Client
buildClient accessToken = do
  manager <- newManager
  return Client
    { client_accessToken = maybe "" unpack accessToken
    , client_requester = flip httpLbs manager
    }
buildClient accessToken = do
  manager <- newManager
  return Client
    { client_accessToken = maybe "" unpack accessToken
    , client_requester = flip httpLbs manager
    }