| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2020-05-24 00:01:27 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2020-05-24 00:01:27 +0200 |
| commit | b61d70864de7e4a39196e06aaa7630c445e322c0 (patch) | |
| tree | 7946c4a845161cac248a560f7a60c945d5fd2407 /src/shared/elm/Shared/Update/Sequence.elm | |
| parent | fc09d979e4c753377131684b1100c250e89765ea (diff) | |
...
Diffstat (limited to 'src/shared/elm/Shared/Update/Sequence.elm')
| -rw-r--r-- | src/shared/elm/Shared/Update/Sequence.elm | 6 |
1 files changed, 3 insertions, 3 deletions
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 = |