From 4df61e290ac552711b96be1154df3a0eadabf262 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sun, 24 May 2020 15:33:11 +0200 Subject: ... --- src/shared/elm/Shared/Update/Sequence.elm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/shared') 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) -- cgit v1.2.3-70-g09d2