view

elm-lang-calculator.elm

-- VIEW


view : Model -> Html Msg
view model =
    div
        []
        [ div
            []
            [ input [ id "operator1", onInput Operator1Changed ] [ text (toString model.op1) ]
            , input [ id "operator2", onInput Operator2Changed ] [ text (toString model.op2) ]
            , button [ onClick Add ] [ text "Add" ]
            , button [ onClick Sub ] [ text "Sub" ]
            , button [ onClick Mult ] [ text "Mult" ]
            , button [ onClick Div ] [ text "Div" ]
            ]
        , div
            []
            [ p [] [ text ("Result: " ++ toString model.result) ] ]
        ]