Add reset search form button

This commit is contained in:
Eike Kettner
2019-12-31 01:39:55 +01:00
parent c73cdd82ab
commit 7d047b13c9
4 changed files with 19 additions and 0 deletions

View File

@ -123,6 +123,7 @@ type Msg
| GetEquipResp (Result Http.Error EquipmentList)
| GetPersonResp (Result Http.Error ReferenceList)
| SetName String
| ResetForm
makeTagModel : Comp.Dropdown.Model Tag
@ -216,6 +217,13 @@ update flags msg model =
]
)
ResetForm ->
let
next =
update flags Init emptyModel
in
{ next | stateChange = True }
GetTagsResp (Ok tags) ->
let
tagList =