diff --git a/lib/matrix-common/events.ml b/lib/matrix-common/events.ml index 1224014..aac9dd0 100644 --- a/lib/matrix-common/events.ml +++ b/lib/matrix-common/events.ml @@ -1786,7 +1786,7 @@ module State_event = struct let room_event, state_key = v in {room_event; state_key} in let with_tuple = - merge_objs Room_event.encoding (obj1 (req "state_key" string)) in + merge_objs Room_event.encoding (obj1 (dft "state_key" string "")) in conv to_tuple of_tuple with_tuple let get_event t = Room_event.get_event t.room_event diff --git a/lib/matrix-ctos/rooms.ml b/lib/matrix-ctos/rooms.ml index eaebc74..b9e2882 100644 --- a/lib/matrix-ctos/rooms.ml +++ b/lib/matrix-ctos/rooms.ml @@ -149,6 +149,6 @@ let encoding = let with_tuple = obj3 (req "join" (assoc Joined_room.encoding)) - (req "invite" (assoc Invited_room.encoding)) - (req "leave" (assoc Left_room.encoding)) in + (dft "invite" (assoc Invited_room.encoding) []) + (dft "leave" (assoc Left_room.encoding) []) in conv to_tuple of_tuple with_tuple