Matrix-Programs/Scylla
1
0
Fork 0
Code Issues 9 Pull Requests Releases Wiki Activity

Use response next batch when available. This prevents duplication.

Browse Source
This commit is contained in:
Danila Fedorin 2018-12-09 13:02:54 -08:00
parent 841d537168
commit 5ac8e8cb36
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Main.elm
View File

@ -73,7 +73,10 @@ updateLoginResponse model r = case r of
updateSyncResponse : Model -> Result Http.Error SyncResponse -> (Model, Cmd Msg) updateSyncResponse : Model -> Result Http.Error SyncResponse -> (Model, Cmd Msg)
updateSyncResponse model r = updateSyncResponse model r =
let let
cmd = sync model.sync.nextBatch model.apiUrl <| Maybe.withDefault "" model.token token = Maybe.withDefault "" model.token
nextBatch = Result.withDefault model.sync.nextBatch
<| Result.map .nextBatch r
cmd = sync nextBatch model.apiUrl token
in in
case r of case r of
Ok sr -> ({ model | sync = mergeSyncResponse model.sync sr }, cmd) Ok sr -> ({ model | sync = mergeSyncResponse model.sync sr }, cmd)