Added Doc.InputType.Decimal and Doc.InputType.DecimalUnchecked

[diegopego]

No description provided.

[diegopego]

I have an issue with this code regarding this formula:

System.Math.Round(1.1m, 1) = 1.1m // returns true

let RoundCheckedInput places (f:CheckedInput<decimal>) =
    match f with
    | Valid(value, inputText) -> Math.Round(value, places)

let checkedInput = CheckedInput.Make(1.1m)

Doc.Concat [
    h1 [] [text $"{RoundCheckedInput 2m checkedInput} {(RoundCheckedInput 2m checkedInput) = 1.1m}"] // returns 1.1 true

when debugging on the browser, value evaluates to value: 1.26

Here is the issue:

If I submit the following form, filling the field with 1.1, the validation fails, and it should pass.

let ValidateCheckedDecimalPlaces places (f:CheckedInput<decimal>) =
    match f with
    | Valid(value, inputText) -> Math.Round(value, places) = value // returns false

Form.Return (fun sku description price quantity -> sku, description, price, quantity)
<*> (Form.Yield (CheckedInput.Make 0.0m)
    |> Validation.Is (fun x -> ValidateCheckedDecimalPlaces 2m x) "Price must have up to two decimal places" // 
    )

when debugging on the browser, value evaluates to:

value: a
    constructor: f a(e)
    d: (2) [1,1000000]
    e: 0
    s: 1

[Jand42]

@diegopego Hello, I'm sorry, can you clean up all the project file changes with the explicit package updates? You can run ./build WS-Update to update deps only or ./build CI-Release to update+build+package everything as CI does.

[diegopego]

@diegopego Hello, I'm sorry, can you clean up all the project file changes with the explicit package updates? You can run ./build WS-Update to update deps only or ./build CI-Release to update+build+package everything as CI does.

I did it and pushed a new commit.