Ignore nextBatch from timeline

This commit is contained in:
Danila Fedorin 2019-09-12 20:32:59 -07:00
parent 105f7e6012
commit c3ed5c4cd1
1 changed files with 4 additions and 1 deletions

View File

@ -86,7 +86,10 @@ changeRoomData jr rd =
, messages = changeTimeline jr rd.messages
, ephemeral = changeEphemeral jr rd.ephemeral
, unreadNotifications = changeNotifications jr rd.unreadNotifications
, prevHistoryBatch = Maybe.andThen .prevBatch jr.timeline
, prevHistoryBatch =
case rd.prevHistoryBatch of
Nothing -> Maybe.andThen .prevBatch jr.timeline
Just _ -> rd.prevHistoryBatch
}
updateRoomData : JoinedRoom -> Maybe RoomData -> Maybe RoomData