Only copy search term when selection changes

This is a fixup for #261
This commit is contained in:
Eike Kettner
2020-09-18 16:04:57 +02:00
parent f78696b479
commit b5f3c64058

View File

@ -209,6 +209,9 @@ update mId key flags settings msg model =
( sm, mv ) = ( sm, mv ) =
Comp.FixedDropdown.update lm model.searchTypeDropdown Comp.FixedDropdown.update lm model.searchTypeDropdown
mvChange =
Util.Maybe.filter (\a -> a /= model.searchTypeForm) mv
m0 = m0 =
{ model { model
| searchTypeDropdown = sm | searchTypeDropdown = sm
@ -216,7 +219,7 @@ update mId key flags settings msg model =
} }
next = next =
case mv of case mvChange of
Just BasicSearch -> Just BasicSearch ->
Just Just
( { m0 | contentOnlySearch = Nothing } ( { m0 | contentOnlySearch = Nothing }