From b61d70864de7e4a39196e06aaa7630c445e322c0 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sun, 24 May 2020 00:01:27 +0200
Subject: ...

---
 src/shared/elm/Shared/Struct/Flags.elm    | 4 ++--
 src/shared/elm/Shared/Update/Sequence.elm | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/shared/elm/Shared')

diff --git a/src/shared/elm/Shared/Struct/Flags.elm b/src/shared/elm/Shared/Struct/Flags.elm
index f57362e..ff4dd20 100644
--- a/src/shared/elm/Shared/Struct/Flags.elm
+++ b/src/shared/elm/Shared/Struct/Flags.elm
@@ -12,7 +12,7 @@ module Shared.Struct.Flags exposing
 import List
 
 -- Shared ----------------------------------------------------------------------
-import Util.List
+import Shared.Util.List
 
 --------------------------------------------------------------------------------
 -- TYPES -----------------------------------------------------------------------
@@ -39,7 +39,7 @@ parameter_as_url parameter =
 maybe_get_parameter : String -> Type -> (Maybe String)
 maybe_get_parameter parameter flags =
    case
-      (Util.List.get_first
+      (Shared.Util.List.get_first
          (\e -> ((List.head e) == (Just parameter)))
          flags.url_parameters
       )
diff --git a/src/shared/elm/Shared/Update/Sequence.elm b/src/shared/elm/Shared/Update/Sequence.elm
index ff33ae4..8f5b3e9 100644
--- a/src/shared/elm/Shared/Update/Sequence.elm
+++ b/src/shared/elm/Shared/Update/Sequence.elm
@@ -4,6 +4,7 @@ module Shared.Update.Sequence exposing (sequence)
 import List
 
 -- Local Module ----------------------------------------------------------------
+import Struct.Event
 import Struct.Model
 
 --------------------------------------------------------------------------------
@@ -16,9 +17,7 @@ sequence_step : (
    )
 sequence_step action (model, cmd_list) =
    let (next_model, new_cmd) = (action model) in
-      case new_cmd of
-         Cmd.none -> (next_model, cmd_list)
-         _ -> (next_model, (cmd_list ++ new_cmds))
+      (next_model, (new_cmd :: cmd_list))
 
 --------------------------------------------------------------------------------
 -- EXPORTED --------------------------------------------------------------------
@@ -27,6 +26,7 @@ sequence : (
       (List
          (Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)))
       )
+      -> Struct.Model.Type
       -> (Struct.Model.Type, (Cmd Struct.Event.Type))
    )
 sequence actions model =
-- 
cgit v1.2.3-70-g09d2