Show required error message for missing required number field.

2024-12-01 07:45:22 +03:00 · 2022-01-10 11:43:51 -08:00 · 2022-01-10 11:43:51 -08:00 · b7d58471f9
commit b7d58471f9
parent b82aa41416
1 changed files with 9 additions and 4 deletions
--- a/src/Form.elm
+++ b/src/Form.elm
@ -640,8 +640,13 @@ requiredNumber name toHtmlFn =
                toHtmlFn (toInputRecord name Nothing info fieldInfo)
        , decode =
            \rawString ->
-                rawString
-                    |> Maybe.andThen String.toInt
+                case rawString of
+                    Nothing ->
+                        Err "This field is required"
+
+                    Just string ->
+                        string
+                            |> String.toInt
                            -- TODO should this be a custom type instead of String error? That way users can customize the error messages
                            |> Result.fromMaybe "Not a valid number"
        , properties = []