AY
только привязка у одного глобально, у второго к ноде дерева
Size: a a a
AY
AY
DK
AY
AY
AY
AY
DK
AY
DK
AY
MP
viewCategory : Dict String Category -> Dict String ServiceProduct -> String -> Html msg
viewCategory categories products id =
let
callback1 =
\catId -> Dict.get catId categories
-- Как вместо: (обычный Dict.get)
-- comparable -> Dict comparable v -> Maybe v
-- получить: (Dict.get с перевернутым порядком аргументов)
-- Dict comparable v -> comparable -> Maybe v
maybeCategory =
Dict.get id products
|> Maybe.andThen .categoryId
|> Maybe.andThen callback1
in
case maybeCategory of
Just category ->
text category.name
Nothing ->
text "Unknown category"
p
p
AP
AP
DK
viewCategory : Dict String Category -> Dict String ServiceProduct -> String -> Html msg
viewCategory categories products id =
let
callback1 =
\catId -> Dict.get catId categories
-- Как вместо: (обычный Dict.get)
-- comparable -> Dict comparable v -> Maybe v
-- получить: (Dict.get с перевернутым порядком аргументов)
-- Dict comparable v -> comparable -> Maybe v
maybeCategory =
Dict.get id products
|> Maybe.andThen .categoryId
|> Maybe.andThen callback1
in
case maybeCategory of
Just category ->
text category.name
Nothing ->
text "Unknown category"
DK
MP
DK