Ignore nextBatch from timeline

This commit is contained in:
Danila Fedorin 2019-09-12 20:32:59 -07:00
parent 105f7e6012
commit c3ed5c4cd1

View File

@ -86,7 +86,10 @@ changeRoomData jr rd =
, messages = changeTimeline jr rd.messages , messages = changeTimeline jr rd.messages
, ephemeral = changeEphemeral jr rd.ephemeral , ephemeral = changeEphemeral jr rd.ephemeral
, unreadNotifications = changeNotifications jr rd.unreadNotifications , 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 updateRoomData : JoinedRoom -> Maybe RoomData -> Maybe RoomData