update : Msg -> Model -> (Model,Cmd Msg)
update msg ({button} as model) =
ButtonSpecific ButtonPressed ->
This can be moved into a seperate file as it still
myButton : ButtonModel -> List (Attribute Msg) -> List (Html Msg) -> Html Msg
myButton {text} attributes children =
[ (Events.onClick <| ButtonSpecific ButtonPressed)
[ Html.text "Here is a reusable view for a button"