Save search results inside the Search component

- still not displaying results
- still need to change url
- fails because mainUpdate doesn't handle search result action (event)

src/Action.hs

@@ -34,5 +34,5 @@ data Action
     | SearchAction Search.Action
     | GoToTime UTCTime
     | ChangeURI URI
-    | SearchResults [ CatalogPost ]
+    | SearchResults
     | NoAction

src/Component/Search.hs

@@ -25,6 +25,7 @@ import Miso
   , (<#)
   , consoleLog
   , noEff
+  , batchEff
   )
 import Data.JSString (pack)
 import qualified Network.Client as Client
@@ -53,8 +54,11 @@ update iface (SearchResult result) model = model <# do
             consoleLog $ (pack $ show $ body)
 
             case body of
-                Just b -> return $ (searchResults iface) b
-                Nothing -> return $ (searchResults iface) []
+                Just catlg_posts -> return $ passAction iface $ PassPostsToSelf catlg_posts
+                Nothing -> return $ passAction iface $ PassPostsToSelf []
+
+update iface (PassPostsToSelf search_results) model = model { displayResults = search_results } <#
+    return (searchResults iface)
 
 update _ NoAction m = noEff m
 

src/Component/Search/SearchTypes.hs

@@ -10,16 +10,17 @@ data Action
     = SearchChange JSString
     | OnSubmit
     | SearchResult (HttpResult [ CatalogPost ])
-    | DisplayResults [ CatalogPost ]
+    | PassPostsToSelf [ CatalogPost ] -- I think I don't understand something about the update type but I had to add this...
     | NoAction
 
 data Model = Model
     { searchTerm :: JSString
     , clientModel :: Client.Model
+    , displayResults :: [ CatalogPost ]
     } deriving Eq
 
 data Interface a = Interface
     { passAction :: Action -> a
     , clientIface :: Client.Interface a [ CatalogPost ]
-    , searchResults :: [ CatalogPost ] -> a
+    , searchResults :: a
     }

src/Main.hs

@@ -106,6 +106,7 @@ initialModel pgroot client_fetch_count media_root u t = Model
     , search_model = Search.Model
         { Search.searchTerm = ""
         , Search.clientModel = client_model_
+        , Search.displayResults = []
         }
     }