From 9c46df53ad401e060664aafe8fdfbcb9a3da5731 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sun, 26 Dec 2021 17:13:33 +0100 Subject: Initial commit. --- src/ElmModule/Update.elm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 src/ElmModule/Update.elm (limited to 'src/ElmModule/Update.elm') 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) -- cgit v1.2.3-70-g09d2