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

Add Validation.value helper to get maybe parsed value.

Browse Source
This commit is contained in:
Dillon Kearns 2022-07-09 08:49:44 -07:00
parent 1a588ed576
commit 4771b9f476
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs.json
View File

File diff suppressed because one or more lines are too long

13
src/Form/Validation.elm
View File

@ -1,9 +1,14 @@
module Form.Validation exposing (Validation, andMap, andThen, fail, fromMaybe, fromResult, map, map2, parseWithError, succeed, withError, withErrorIf, withFallback)
module Form.Validation exposing
( Validation, andMap, andThen, fail, fromMaybe, fromResult, map, map2, parseWithError, succeed, withError, withErrorIf, withFallback
, value
)
{-|
@docs Validation, andMap, andThen, fail, fromMaybe, fromResult, map, map2, parseWithError, succeed, withError, withErrorIf, withFallback
@docs value
-}
import Dict exposing (Dict)
@ -33,6 +38,12 @@ withFallback parsed (Validation name ( maybeParsed, errors )) =
)
{-| -}
value : Validation error parsed named -> Maybe parsed
value (Validation _ ( maybeParsed, _ )) =
maybeParsed
{-| -}
parseWithError : parsed -> ( String, error ) -> Validation error parsed Never
parseWithError parsed ( key, error ) =