Add Search with elasticsearch and facets

[amitaibu]

#50

[amitaibu]

I get an error when running locally. I have a case where using Overmind causes devenv up to exit, vs. using the default, which still has ES failing but doesn't kill the process.

Overmind	Default

[amitaibu]

That's how Claude AI told me to do it

[amitaibu]

Update: We are now able to index the title and body of News

For now, we can see the results in http://localhost:9200/news/_search?pretty

[amitaibu]

To test:

1. Go to http://localhost:8000/News, and add News
2. Visit http://localhost:9200/news/_search?pretty
3. Next is to understand how to parse the result

[amitaibu]

Took me more time than I'm willing to admit, but I was able to get the News ID from Elastic 😅

ihp-cms-starter/Application/Helper/Elasticsearch.hs

Lines 56 to 67 in 36ea162

	result <- parseEsResponse response
	case result of
	Left esError -> do
	-- Handle the error (log it, return empty list, or throw an exception)
	liftIO $ putStrLn $ "Error occurred: " ++ show esError
	return []
	Right (searchResult :: SearchResult Value) -> do
	-- Extract the News IDs from the search result
	let newsIds :: [Id News] = map (textToId . unDocId . hitDocId) $ hits $ searchHits searchResult
	liftIO $ putStrLn $ "newsIds: " ++ show newsIds
	return newsIds