| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2021-12-26 17:13:33 +0100 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2021-12-26 17:13:33 +0100 |
| commit | 9c46df53ad401e060664aafe8fdfbcb9a3da5731 (patch) | |
| tree | cbe3e412bc04e322ddab5ca52bdb776c63b3fdc2 /src/ElmModule/Update.elm | |
Initial commit.
Diffstat (limited to 'src/ElmModule/Update.elm')
| -rw-r--r-- | src/ElmModule/Update.elm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/ElmModule/Update.elm b/src/ElmModule/Update.elm new file mode 100644 index 0000000..a4b827a --- /dev/null +++ b/src/ElmModule/Update.elm @@ -0,0 +1,23 @@ +module ElmModule.Update exposing (update) + +-- Elm ------------------------------------------------------------------------- + +-- Local Module ---------------------------------------------------------------- +import Struct.Event +import Struct.Model + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +update : ( + Struct.Event.Type -> + Struct.Model.Type -> + (Struct.Model.Type, (Cmd Struct.Event.Type)) + ) +update event model = + case event of + Struct.Event.None -> (model, Cmd.none) |