fix author search not working since last stable

CHANGELOG.md

@@ -7,6 +7,8 @@ All notable changes to this project will be documented in this file.
 ### Removed
 ### Fixed
 
+- [web] authors search returning no results #1082
+
 ## [1.10.0] - 2023-11-06
 
 ### Added

src/Monocle/Api/ServerHTMX.hs

@@ -27,9 +27,10 @@ searchAuthorsHandler :: ApiEffects es => AuthResult AuthenticatedUser -> Maybe C
 searchAuthorsHandler _ Nothing _ = pure $ pure ()
 searchAuthorsHandler auth (Just index) queryM = do
   case queryM of
-    Just query -> do
+    Just authorName -> do
+      logInfo "Search request for author" ["author" .= authorName, "index" .= index]
       (SearchPB.AuthorResponse results) <-
-        searchAuthor auth (AuthorRequest (from index) (from query))
+        searchAuthor auth (AuthorRequest (from index) (from authorName))
       case toList results of
         [] -> pure $ div_ "No Results"
         _xs -> pure $ mapM_ authorToMarkup results
@@ -47,14 +48,16 @@ searchAuthorsHandler auth (Just index) queryM = do
                 , class_ "pf-c-form-control"
                 , placeholder_ "Start typing to search authors"
                 , hxGet "/htmx/authors_search"
-                , hxVals [iii|{"index": "#{index}"}|]
+                , hxVals [iii|{"index": "#{indexVal}"}|]
                 , hxTrigger "keyup changed delay:500ms, search"
                 , hxTarget "#search-results"
                 ]
           div_ [class_ "pf-l-stack__item"] $ do
             div_ [id_ "search-results"] ""
           script_ pushToRouter
  where
+  indexVal :: Text
+  indexVal = from index
   countCachedAuthors = do
     resp <- esCountByIndex (tenantIndexName index) $ BH.CountQuery $ documentType ECachedAuthor
     case resp of