RS
Size: a a a
RS
RS
Вл
Ф
к
_ ->
кейсов.RS
Вл
_ ->
кейсов.Ф
Ф
к
type Message = A | B | C
updateX msg model =
case msg of
A -> 1
B -> 2
_ -> model
updateY msg model =
case msg of
B -> 1
C -> 2
_ -> model
update msg model =
{ x = updateX msg model.x
, y = updateY msg model.y
}
_ -> model
мы теряем профит от того, что компилятор показывает нам, что мы обрабатали не все ветки кейса, а это мощная фишкак
Вл
Вл
к
Вл
RS
Вл
Ф
Ф
Ф