From 9795d275d8f35ed8734b012c8a1e024122dd3783 Mon Sep 17 00:00:00 2001
From: bosko-m <88723596+bosko-m@users.noreply.github.com>
Date: Wed, 23 Jul 2025 14:31:37 +0200
Subject: [PATCH 1/2] Update API.hs - preventing caching of empty result set

Signed-off-by: bosko-m <88723596+bosko-m@users.noreply.github.com>
---
 govtool/backend/src/VVA/API.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/govtool/backend/src/VVA/API.hs b/govtool/backend/src/VVA/API.hs
index 3c14926e0..fccd243a1 100644
--- a/govtool/backend/src/VVA/API.hs
+++ b/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

From 97e8ec61991c47cf4d748dcfa7fc85ac9776ea2f Mon Sep 17 00:00:00 2001
From: bosko-m <88723596+bosko-m@users.noreply.github.com>
Date: Wed, 23 Jul 2025 14:56:58 +0200
Subject: [PATCH 2/2] Update API.hs - setting cache to ()

Signed-off-by: bosko-m <88723596+bosko-m@users.noreply.github.com>
---
 govtool/backend/src/VVA/API.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/govtool/backend/src/VVA/API.hs b/govtool/backend/src/VVA/API.hs
index fccd243a1..6253edb98 100644
--- a/govtool/backend/src/VVA/API.hs
+++ b/govtool/backend/src/VVA/API.hs
@@ -407,6 +407,8 @@ listProposals selectedTypes sortMode mPage mPageSize mDrepRaw mSearchQuery = do
 
   CacheEnv {proposalListCache} <- asks vvaCache
 
+  let cacheKey = ()
+
   proposals <- do
     result <- Proposal.listProposals mSearchQuery
     if null result