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)