let response = r.response :: String
pure $ Right $ r.status == SC.StatusCode 200