Fix initialising date fields

This commit is contained in:
Eike Kettner
2020-11-23 09:43:12 +01:00
parent cdcc8210fe
commit 44459aecd0
2 changed files with 5 additions and 3 deletions

View File

@ -260,7 +260,7 @@ update msg model =
in
UpdateResult model_ Cmd.none (Value value)
( DateMsg lm, DateField _ picker ) ->
( DateMsg lm, DateField old picker ) ->
let
( picker_, event ) =
Comp.DatePicker.updateDefault lm picker
@ -271,10 +271,10 @@ update msg model =
( Just date, Value (Date.toIsoString date) )
DatePicker.None ->
( Nothing, NoResult )
( old, NoResult )
DatePicker.FailedInput _ ->
( Nothing, NoResult )
( old, NoResult )
model_ =
{ model | fieldModel = DateField newDate picker_ }