From ce28a0e877651182933aa6602b16bf43b7105b15 Mon Sep 17 00:00:00 2001
From: Yannik Sander <me@ysndr.de>
Date: Fri, 14 Jan 2022 20:44:46 +0100
Subject: [PATCH] Also ignore installDetail state (#411)

---
 src/Main.elm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/src/Main.elm b/src/Main.elm
index 17a9840..ff3ff14 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -12,7 +12,9 @@ import Html
         , header
         , img
         , li
+        , small
         , span
+        , sup
         , text
         , ul
         )
@@ -31,10 +33,9 @@ import Page.Home
 import Page.Options
 import Page.Packages
 import Route exposing (SearchType(..))
-import Search
+import Search exposing (Msg(..), defaultFlakeId)
 import Url
 import Search exposing (defaultFlakeId)
-import Search exposing (channels)
 import Html exposing (sup)
 import Html exposing (small)
 import RemoteData exposing (RemoteData(..))
@@ -160,7 +161,7 @@ attemptQuery (( model, _ ) as pair) =
 
         Flakes (OptionModel searchModel) ->
             if Search.shouldLoad searchModel then
-                submitQuery FlakesMsg Page.Flakes.makeRequest {searchModel | channel = defaultFlakeId }
+                submitQuery FlakesMsg Page.Flakes.makeRequest { searchModel | channel = defaultFlakeId }
 
             else
                 noEffects pair
@@ -170,7 +171,7 @@ attemptQuery (( model, _ ) as pair) =
                 -- let
                 --     _ = Debug.log "main" "submit flake message"
                 -- in
-                submitQuery FlakesMsg Page.Flakes.makeRequest {searchModel | channel = defaultFlakeId}
+                submitQuery FlakesMsg Page.Flakes.makeRequest { searchModel | channel = defaultFlakeId }
 
             else
                 --   let _ = Debug.log "main" "should not load flakes" in
@@ -193,11 +194,10 @@ pageMatch m1 m2 =
             True
 
         ( Packages model_a, Packages model_b ) ->
-            {model_a | show = Nothing, result = NotAsked } == {model_b | show = Nothing, result = NotAsked}
-
+            { model_a | show = Nothing, showInstallDetails = Search.Unset, result = NotAsked }
+                == { model_b | show = Nothing, showInstallDetails = Search.Unset, result = NotAsked }
         ( Options model_a, Options model_b ) ->
             {model_a | show = Nothing, result = NotAsked } == {model_b | show = Nothing, result = NotAsked}
-
         ( Flakes (OptionModel model_a), Flakes (OptionModel model_b) ) ->
             {model_a | show = Nothing, result = NotAsked } == {model_b | show = Nothing, result = NotAsked}
 
@@ -426,8 +426,7 @@ viewNavigation route =
             (viewNavigationItem route)
             [ ( toRoute Route.Packages, text "Packages" )
             , ( toRoute Route.Options, text "Options" )
-            , ( toRoute Route.Flakes, span [] [ text "Flakes", sup [] [span [class "label label-info"][small [] [text "Experimental"]]]] )
-            
+            , ( toRoute Route.Flakes, span [] [ text "Flakes", sup [] [ span [ class "label label-info" ] [ small [] [ text "Experimental" ] ] ] ] )
             ]