4-transfer-api
Bram 2024-07-25 19:15:30 +02:00
parent a8d879afbb
commit 8d28fe63b9
2 changed files with 3 additions and 2 deletions

View File

@ -107,7 +107,8 @@ inviteV2 : InviteInputV2 a -> A.TaskChain (PhantomV1 ph1) (PhantomV1 ph1)
inviteV2 { reason, roomId, user } = inviteV2 { reason, roomId, user } =
A.request A.request
{ attributes = { attributes =
[ R.bodyOpString "reason" reason [ R.accessToken
, R.bodyOpString "reason" reason
, R.bodyString "user_id" (User.toString user) , R.bodyString "user_id" (User.toString user)
, R.onStatusCode 400 "M_UNKNOWN" , R.onStatusCode 400 "M_UNKNOWN"
, R.onStatusCode 403 "M_FORBIDDEN" , R.onStatusCode 403 "M_FORBIDDEN"

View File

@ -79,7 +79,7 @@ ban :
ban data = ban data =
case ( data.room, data.user ) of case ( data.room, data.user ) of
( Room room, Types.User user ) -> ( Room room, Types.User user ) ->
Api.kickUser room Api.banUser room
{ reason = data.reason { reason = data.reason
, roomId = roomId data.room , roomId = roomId data.room
, toMsg = Types.VaultUpdate >> data.toMsg , toMsg = Types.VaultUpdate >> data.toMsg