Skip to content
Permalink
Browse files

search on page load and on second search query, fixes #5

  • Loading branch information
garbas committed May 8, 2020
1 parent f25b287 commit 90b8594394cb6baba233b5ca60c7f3e3e79c0d09
Showing with 10 additions and 4 deletions.
  1. +10 −4 src/Main.elm
@@ -110,10 +110,7 @@ submitQuery :
submitQuery old ( new, cmd ) =
let
triggerSearch oldModel newModel msg makeRequest =
if (oldModel.query == newModel.query) && RemoteData.isSuccess oldModel.result then
( new, cmd )

else
if newModel.query /= Nothing then
( new
, Cmd.batch
[ cmd
@@ -123,14 +120,23 @@ submitQuery old ( new, cmd ) =
|> Cmd.map msg
]
)

else
( new, cmd )
in
case ( old.page, new.page ) of
( Packages oldModel, Packages newModel ) ->
triggerSearch oldModel newModel PackagesMsg Page.Packages.makeRequest

( NotFound, Packages newModel ) ->
triggerSearch newModel newModel PackagesMsg Page.Packages.makeRequest

( Options oldModel, Options newModel ) ->
triggerSearch oldModel newModel OptionsMsg Page.Options.makeRequest

( NotFound, Options newModel ) ->
triggerSearch newModel newModel OptionsMsg Page.Options.makeRequest

( _, _ ) ->
( new, cmd )

0 comments on commit 90b8594

Please sign in to comment.
You can’t perform that action at this time.