Fix bugs
parent
a8d879afbb
commit
8d28fe63b9
|
@ -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"
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue