dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-28 23:12:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add a field map function.

Browse Source
This commit is contained in:
Dillon Kearns 2022-04-06 17:01:11 -07:00
parent c7dbf796b1
commit ad22e15393
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Form.elm
View File

@ -5,7 +5,7 @@ module Form exposing
, isSubmitting, SubmitStatus(..) , isSubmitting, SubmitStatus(..)
, FieldRenderInfo, FieldStatus(..), isAtLeast , FieldRenderInfo, FieldStatus(..), isAtLeast
, with, append, appendForm , with, append, appendForm
, Field , Field, map
, withInitialValue , withInitialValue
, checkbox, date, time, email, hidden, multiple, int, float, password, radio, range, telephone, text, url, floatRange, search , checkbox, date, time, email, hidden, multiple, int, float, password, radio, range, telephone, text, url, floatRange, search
, submit , submit
@ -57,7 +57,7 @@ The form submissions are handled internally. Both tracking the submit status, an
## Fields ## Fields
@docs Field @docs Field, map
## Initial Values ## Initial Values
@ -1467,6 +1467,12 @@ withServerValidation serverValidation (Field field) =
} }
{-| -}
map : (value -> mapped) -> Field error value view constraints -> Field error mapped view { constraints | wasMapped : Yes }
map mapFn field =
withClientValidation (mapFn >> Ok) field
{-| -} {-| -}
withClientValidation : (value -> Result error mapped) -> Field error value view constraints -> Field error mapped view { constraints | wasMapped : Yes } withClientValidation : (value -> Result error mapped) -> Field error value view constraints -> Field error mapped view { constraints | wasMapped : Yes }
withClientValidation mapFn (Field field) = withClientValidation mapFn (Field field) =