Slide 25
Slide 25 text
#meguroes
view : Model -> Html Msg
view model =
div []
[ h1 [] [ text "Guestbook" ]
, input []
[ type_ "text"
, placeholder "Message..."
, onInput SetInput
, value model.currentInput
]
, button
[ onClick AddComment ]
[ text "Submit" ]
, ul [] <| List.map comment model.comments
]