| summaryrefslogtreecommitdiff | 
diff options
Diffstat (limited to 'src/roster-editor')
| -rw-r--r-- | src/roster-editor/src/Comm/UpdateRoster.elm | 9 | ||||
| -rw-r--r-- | src/roster-editor/src/Struct/Character.elm | 2 | ||||
| -rw-r--r-- | src/roster-editor/src/Update/SendRoster.elm | 10 | 
3 files changed, 10 insertions, 11 deletions
| diff --git a/src/roster-editor/src/Comm/UpdateRoster.elm b/src/roster-editor/src/Comm/UpdateRoster.elm index 8c1a960..eabdd5e 100644 --- a/src/roster-editor/src/Comm/UpdateRoster.elm +++ b/src/roster-editor/src/Comm/UpdateRoster.elm @@ -35,11 +35,10 @@ try_encoding model =                 (Json.Encode.list                    (List.map                       (Struct.Character.encode) -                     (Array.toList model.characters) -                    -- (List.filter -                    --    (Struct.Character.get_was_edited) -                    --    (Array.toList model.characters) -                   --  ) +                     (List.filter +                        (Struct.Character.get_was_edited) +                        (Array.toList model.characters) +                     )                    )                 )              ) diff --git a/src/roster-editor/src/Struct/Character.elm b/src/roster-editor/src/Struct/Character.elm index f762370..89e2a18 100644 --- a/src/roster-editor/src/Struct/Character.elm +++ b/src/roster-editor/src/Struct/Character.elm @@ -196,7 +196,7 @@ get_was_edited : Type -> Bool  get_was_edited char = char.was_edited  set_was_edited : Bool -> Type -> Type -set_was_edited val char = {char | was_edited = False} +set_was_edited val char = {char | was_edited = val}  decoder : (Json.Decode.Decoder (Type, String, Int, Int, Int))  decoder = diff --git a/src/roster-editor/src/Update/SendRoster.elm b/src/roster-editor/src/Update/SendRoster.elm index 9ab1c9f..b6f0510 100644 --- a/src/roster-editor/src/Update/SendRoster.elm +++ b/src/roster-editor/src/Update/SendRoster.elm @@ -21,11 +21,11 @@ apply_to : Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type))  apply_to model =     (        {model | -         characters = model.characters ---            (Array.map - --              (Struct.Character.set_was_edited False) -  --             model.characters -   --         ) +         characters = +            (Array.map +               (Struct.Character.set_was_edited False) +               model.characters +            )        },        (case (Comm.UpdateRoster.try model) of           (Just cmd) -> cmd | 


