| 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 | |
| parent | fc09d979e4c753377131684b1100c250e89765ea (diff) | |
...
Diffstat (limited to 'src/shared/elm/Shared')
| -rw-r--r-- | src/shared/elm/Shared/Struct/Flags.elm | 4 | ||||
| -rw-r--r-- | src/shared/elm/Shared/Update/Sequence.elm | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/src/shared/elm/Shared/Struct/Flags.elm b/src/shared/elm/Shared/Struct/Flags.elm index f57362e..ff4dd20 100644 --- a/src/shared/elm/Shared/Struct/Flags.elm +++ b/src/shared/elm/Shared/Struct/Flags.elm @@ -12,7 +12,7 @@ module Shared.Struct.Flags exposing import List -- Shared ---------------------------------------------------------------------- -import Util.List +import Shared.Util.List -------------------------------------------------------------------------------- -- TYPES ----------------------------------------------------------------------- @@ -39,7 +39,7 @@ parameter_as_url parameter = maybe_get_parameter : String -> Type -> (Maybe String) maybe_get_parameter parameter flags = case - (Util.List.get_first + (Shared.Util.List.get_first (\e -> ((List.head e) == (Just parameter))) flags.url_parameters ) 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 = |