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_ $