1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
module Shared.Update.Sequence exposing (sequence)
-- Elm -------------------------------------------------------------------------
import List
-- Local Module ----------------------------------------------------------------
import Struct.Model
--------------------------------------------------------------------------------
-- LOCAL -----------------------------------------------------------------------
--------------------------------------------------------------------------------
sequence_step : (
(Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)))
-> (Struct.Model.Type, (List (Cmd Struct.Event.Type)))
-> (Struct.Model.Type, (List (Cmd Struct.Event.Type)))
)
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))
--------------------------------------------------------------------------------
-- EXPORTED --------------------------------------------------------------------
--------------------------------------------------------------------------------
sequence : (
(List
(Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)))
)
-> (Struct.Model.Type, (Cmd Struct.Event.Type))
)
sequence actions model =
let (final_model, cmds) = (List.foldr (sequence_step) (model, []) actions) in
case cmds of
[] -> (final_model, Cmd.none)
[cmd] -> (final_model, cmd)
_ -> (final_model, (Cmd.batch cmds))
|
