Introduction to elm-mdl - 3

Main.elm

import Material.Layout as Layout

view : Model -> Html Msg
view model =
    Layout.render Mdl
        model.mdl
        [ Layout.fixedHeader
        ]
        { header = [ h1 [ style [ ( "padding", "2rem" ) ] ] [ text "Counter" ] ]
        , drawer = []
        , tabs = ( [], [] )
        , main = [ viewBody model ]
        }


-- This used to be the `view`
viewBody : Model -> Html Msg
viewBody model =
    -- ...