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_ }

View File

@ -247,6 +247,7 @@ update key flags inav settings msg model =
, res6.cmd
, res7.cmd
, res8.cmd
, res9.cmd
, getOptions flags
, proposalCmd
, Api.getSentMails flags item.id SentMailsResp
@ -262,6 +263,7 @@ update key flags inav settings msg model =
, res6.sub
, res7.sub
, res8.sub
, res9.sub
]
, linkTarget = Comp.LinkTarget.LinkNone
}