update

elm-lang-calculator.elm

update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        Add ->
            let
                res =
                    model.op1 + model.op2
            in
                ( { model | result = res }, Cmd.none )

        Sub ->
            let
                res =
                    model.op1 - model.op2
            in
                ( { model | result = res }, Cmd.none )

        Mult ->
            let
                res =
                    model.op1 * model.op2
            in
                ( { model | result = res }, Cmd.none )

        Div ->
            let
                res =
                    model.op1 / model.op2
            in
                ( { model | result = res }, Cmd.none )

        Operator1Changed newValue ->
            ( { model | op1 = parseFloat newValue }, Cmd.none )

        Operator2Changed newValue ->
            ( { model | op2 = parseFloat newValue }, Cmd.none )