Narrowing-types_scaling_elm_apps

narrow-types.elm

-- было

viewHeader : Model -> Html Msg
viewHeader model =
  ...127 lines
  
viewBody : Model -> Html Msg
viewBody model =
  ...349 lines


viewFooter : Model -> Html Msg
  ...238 lines
  
-- стало

-- сузили: viewHeader теперь ждет только инфу об юзере и уведомлениях
viewHeader : User -> Int -> Html Msg
viewHeader user notifications =
  ...127 lines

-- viewBody все же ждет "всю модель", не сузить
viewBody : Model -> Html Msg
viewBody model =
  ...349 lines

-- viewFooter просто возвращает верстку, не ждет аргументов
viewFooter : Html Msg
  ...238 lines