From 113237c07db7869640c03912cb0038d3bccceb15 Mon Sep 17 00:00:00 2001
From: Chris Done <chris.done@artificial.io>
Date: Tue, 2 Jun 2026 15:04:13 +0100
Subject: [PATCH] Limit branches displayed to 1k

---
 src/Perf/Web/Routes.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Perf/Web/Routes.hs b/src/Perf/Web/Routes.hs
index 45336e9..2c7cd47 100644
--- a/src/Perf/Web/Routes.hs
+++ b/src/Perf/Web/Routes.hs
@@ -40,7 +40,7 @@ getBranchesR = do
   branches <-
     fmap (List.filter (not . T.isPrefixOf "gh-readonly-queue/" . (.entityVal.branchName))) $
       db $
-        selectList @DB.Branch [DB.BranchName !=. "master"] [Desc DB.BranchCreatedAt]
+        selectList @DB.Branch [DB.BranchName !=. "master"] [Desc DB.BranchCreatedAt, LimitTo 1000]
   lucid do
     defaultLayout_ "Performance" do
       ul_ $