From 7a9d4cd9d4bd884b3a2e9876992611b8d8d36fe3 Mon Sep 17 00:00:00 2001
From: Rok Garbas <rok@garbas.si>
Date: Wed, 10 Jun 2020 13:14:36 +0200
Subject: [PATCH] Reload search results on channel change (#80)

fixes #65
fixes #79
---
 src/Search.elm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/src/Search.elm b/src/Search.elm
index 08194ae..d194040 100644
--- 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