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/Update/Sequence.elm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/shared/elm/Shared/Update/Sequence.elm')

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