mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-23 02:48:26 +00:00
Add reset search form button
This commit is contained in:
@ -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 =
|
||||
|
Reference in New Issue
Block a user