Slide 15
Slide 15 text
例:カウンタ
type alias Model = Int
type Msg =
NoOp
| Increase
| Decrease
update : Msg -> Model ->
( Model, Cmd Msg )
update msg count =
case msg of
NoOp ->
( count, Cmd.none )
Increase ->
( count + 1, Cmd.none )
Decrease ->
( count - 1, Cmd.none )
Elm
type Model = Int
data Action =
NoOp
| Increase
| Decrease
updateModel :: Action -> Model ->
Effect Action Model
updateModel act count =
case act of
NoOp ->
noEff count
Increase ->
noEff (count + 1)
Decrease ->
noEff (count - 1)
Miso
#wejs