diff --git a/elm.json b/elm.json index d463605..c0c8506 100644 --- a/elm.json +++ b/elm.json @@ -3,7 +3,7 @@ "name": "linsyking/messenger-core", "summary": "Core library for Messenger.", "license": "BSD-3-Clause", - "version": "1.1.0", + "version": "2.0.0", "exposed-modules": { "Definitions": [ "Messenger.Recursion", diff --git a/src/Messenger/GeneralModel.elm b/src/Messenger/GeneralModel.elm index 4eabb8e..ec206b8 100644 --- a/src/Messenger/GeneralModel.elm +++ b/src/Messenger/GeneralModel.elm @@ -9,8 +9,9 @@ General model is designed to be an abstract interface of scenes, layers, compone - a: data type - b: environment type - - c: message type - - d: render type + - c: init type + - d: message type + - e: render type @docs NamedGeneralModel, NamelessGeneralModel @@ -22,20 +23,20 @@ General model is designed to be an abstract interface of scenes, layers, compone This has a name field. -} -type alias NamedGeneralModel a b c d = +type alias NamedGeneralModel a b c d e = { name : String , data : a , init : b -> c -> a - , update : b -> c -> a -> ( a, b ) - , view : b -> a -> d + , update : b -> d -> a -> ( a, b ) + , view : b -> a -> e } {-| General Model without name field. -} -type alias NamelessGeneralModel a b c d = +type alias NamelessGeneralModel a b c d e = { data : a , init : b -> c -> a - , update : b -> c -> a -> ( a, b ) - , view : b -> a -> d + , update : b -> d -> a -> ( a, b ) + , view : b -> a -> e }