From ac115cb162448a60ef788783a35a71fdf9a96457 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Mon, 1 Oct 2018 13:43:27 +0200 Subject: Got it to work. --- src/background/src/Struct/Model.elm | 2 +- src/background/src/Update/HandleServerReply.elm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/background/src/Struct/Model.elm b/src/background/src/Struct/Model.elm index 5e09f9d..d7f4085 100644 --- a/src/background/src/Struct/Model.elm +++ b/src/background/src/Struct/Model.elm @@ -50,7 +50,7 @@ new flags = { flags = flags, players = (Array.fromList (Struct.Flags.get_players flags)), - remaining_updates = 0, + remaining_updates = (List.length (Struct.Flags.get_players flags)), error = Nothing } diff --git a/src/background/src/Update/HandleServerReply.elm b/src/background/src/Update/HandleServerReply.elm index 983043d..b69233a 100644 --- a/src/background/src/Update/HandleServerReply.elm +++ b/src/background/src/Update/HandleServerReply.elm @@ -82,7 +82,7 @@ handle_set_battles battles current_state = in ( updated_model, - cmds + (maybe_update_storage updated_model cmds) ) (Just player) -> @@ -105,7 +105,7 @@ handle_set_battles battles current_state = in ( updated_model, - (maybe_update_storage model cmds) + (maybe_update_storage updated_model cmds) ) apply_command : ( -- cgit v1.2.3-70-g09d2