update
view
init
Model
Action
type alias Model =
{
recentEvents : List Event,
highlight : Maybe EventActor
}
Slide 69
Slide 69 text
update
view
init
Model
Action
init: Model
init =
{
recentEvents = [],
highlight = Nothing
}
Slide 70
Slide 70 text
update
view
init
Model
Action
update action model =
case action of
SingleEvent event ->
{ model
| recentEvents <- event :
}
PersonOfInterest actor ->
{ model
| highlight <- Just actor
}