| summaryrefslogtreecommitdiff |
diff options
| -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) |