From 11ab56f19b8979c8f3d164277ad5b40555150f78 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Thu, 8 Nov 2018 21:30:47 +0100
Subject: Exhibits the usual data sets vs chars issue...

---
 src/roster-editor/src/Comm/UpdateRoster.elm |  9 ++++-----
 src/roster-editor/src/Struct/Character.elm  |  2 +-
 src/roster-editor/src/Update/SendRoster.elm | 10 +++++-----
 3 files changed, 10 insertions(+), 11 deletions(-)

(limited to 'src/roster-editor')

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
-- 
cgit v1.2.3-70-g09d2