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

Fix initial value for checkbox event decoders.

Browse Source
This commit is contained in:
Dillon Kearns 2022-06-16 08:40:44 -07:00
parent 5b92530e29
commit 116e9b775d
1 changed files with 25 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/Pages/Form.elm
View File

@ -35,12 +35,35 @@ type alias FieldEvent =
fieldEventDecoder : Decoder FieldEvent
fieldEventDecoder =
Decode.map4 FieldEvent
(Decode.at [ "target", "value" ] Decode.string)
inputValueDecoder
(Decode.at [ "currentTarget", "id" ] Decode.string)
(Decode.at [ "target", "name" ] Decode.string)
fieldDecoder
inputValueDecoder : Decoder String
inputValueDecoder =
Decode.at [ "target", "type" ] Decode.string
|> Decode.andThen
(\targetType ->
case targetType of
"checkbox" ->
Decode.map2
(\valueWhenChecked isChecked ->
if isChecked then
valueWhenChecked
else
""
)
(Decode.at [ "target", "value" ] Decode.string)
(Decode.at [ "target", "checked" ] Decode.bool)
_ ->
Decode.at [ "target", "value" ] Decode.string
)
fieldDecoder : Decoder Event
fieldDecoder =
Decode.field "type" Decode.string
@ -48,29 +71,7 @@ fieldDecoder =
(\type_ ->
case type_ of
"input" ->
Decode.at [ "target", "type" ] Decode.string
|> Decode.andThen
(\targetType ->
case targetType of
"checkbox" ->
Decode.map2
(\valueWhenChecked isChecked ->
(if isChecked then
valueWhenChecked
else
""
)
|> InputEvent
)
(Decode.at [ "target", "value" ] Decode.string)
(Decode.at [ "target", "checked" ] Decode.bool)
_ ->
Decode.map
InputEvent
(Decode.at [ "target", "value" ] Decode.string)
)
inputValueDecoder |> Decode.map InputEvent
"focusin" ->
FocusEvent