From b5f3c6405885bac724f0c8b1c238cb5f2202c434 Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Fri, 18 Sep 2020 16:04:57 +0200
Subject: [PATCH] Only copy search term when selection changes

This is a fixup for #261
---
 modules/webapp/src/main/elm/Page/Home/Update.elm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/modules/webapp/src/main/elm/Page/Home/Update.elm b/modules/webapp/src/main/elm/Page/Home/Update.elm
index 9308b35d..f307b727 100644
--- a/modules/webapp/src/main/elm/Page/Home/Update.elm
+++ b/modules/webapp/src/main/elm/Page/Home/Update.elm
@@ -209,6 +209,9 @@ update mId key flags settings msg model =
                 ( sm, mv ) =
                     Comp.FixedDropdown.update lm model.searchTypeDropdown
 
+                mvChange =
+                    Util.Maybe.filter (\a -> a /= model.searchTypeForm) mv
+
                 m0 =
                     { model
                         | searchTypeDropdown = sm
@@ -216,7 +219,7 @@ update mId key flags settings msg model =
                     }
 
                 next =
-                    case mv of
+                    case mvChange of
                         Just BasicSearch ->
                             Just
                                 ( { m0 | contentOnlySearch = Nothing }