impls claims

src/Main.elm

@@ -306,6 +306,12 @@ setLoot items model =
     { model | chest = { chest | loot = items } }
 
 
+setClaims : Claims -> Model -> Model
+setClaims claims model =
+    let
+        chest = model.chest
+    in
+        { model | chest = { chest | claims = claims } }
 
 -- DbUpdates always refer to the active player's loot
 
@@ -340,11 +346,12 @@ applyUpdate u model =
                     }
             }
 
-        Api.ClaimAdded _ ->
-            model
+        Api.ClaimAdded claim ->
+            model |> setClaims (claim :: model.chest.claims)
 
-        Api.ClaimRemoved _ ->
+        Api.ClaimRemoved claim ->
             model
+                |> setClaims (List.filter (\c -> c.id /= claim.id) model.chest.claims)