| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2020-05-24 15:33:11 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2020-05-24 15:33:11 +0200 |
| commit | 4df61e290ac552711b96be1154df3a0eadabf262 (patch) | |
| tree | 0639b1a5e5ed0dce9e6d60c19560816a1bf506fe /src/shared/elm/Shared/Update | |
| parent | 39f0b6b796b44d4c79ecea00d3bdf950e2c44e51 (diff) | |
...
Diffstat (limited to 'src/shared/elm/Shared/Update')
| -rw-r--r-- | src/shared/elm/Shared/Update/Sequence.elm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/shared/elm/Shared/Update/Sequence.elm b/src/shared/elm/Shared/Update/Sequence.elm index 8f5b3e9..f195d26 100644 --- a/src/shared/elm/Shared/Update/Sequence.elm +++ b/src/shared/elm/Shared/Update/Sequence.elm @@ -30,7 +30,7 @@ sequence : ( -> (Struct.Model.Type, (Cmd Struct.Event.Type)) ) sequence actions model = - let (final_model, cmds) = (List.foldr (sequence_step) (model, []) actions) in + let (final_model, cmds) = (List.foldl (sequence_step) (model, []) actions) in case cmds of [] -> (final_model, Cmd.none) [cmd] -> (final_model, cmd) |