Update API.hs - preventing caching of empty result set

Signed-off-by: bosko-m <[email protected]>

Author: bosko-m

govtool/backend/src/VVA/API.hs

@@ -407,7 +407,11 @@ listProposals selectedTypes sortMode mPage mPageSize mDrepRaw mSearchQuery = do
 
   CacheEnv {proposalListCache} <- asks vvaCache
 
-  proposals <- cacheRequest proposalListCache () (Proposal.listProposals mSearchQuery)
+  proposals <- do
+    result <- Proposal.listProposals mSearchQuery
+    if null result
+      then return result
+      else cacheRequest proposalListCache cacheKey (pure result)
 
   mappedSortedAndFilteredProposals <- mapSortAndFilterProposals selectedTypes sortMode proposals
   let filteredProposals = filter