Reload search results on channel change

fixes #65 fixes #79
NixOS · Jun 10, 2020 · 3dd7372 · 3dd7372
1 parent bddb6c4
commit 3dd7372
Showing 1 changed file with 13 additions and 3 deletions.
diff --git a/src/Search.elm b/src/Search.elm
@@ -141,8 +141,18 @@ update path navKey msg model =
             )
 
         ChannelChange channel ->
-            ( { model | channel = channel }
-            , Cmd.none
+            ( { model
+                | channel = channel
+                , result = RemoteData.Loading
+              }
+            , createUrl
+                path
+                channel
+                model.query
+                model.showDetailsFor
+                0
+                model.size
+                |> Browser.Navigation.pushUrl navKey
             )
 
         QueryInput query ->
@@ -151,7 +161,7 @@ update path navKey msg model =
             )
 
         QuerySubmit ->
-            ( model
+            ( { model | result = RemoteData.Loading }
             , createUrl
                 path
                 model.channel