From 03e4941010ac41a496383c3c8aad0d6c3e0ad35d Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Thu, 20 Feb 2025 18:17:24 +0100
Subject: only include main branches

---
 app/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index a3d1355..c5d0d7b 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -201,7 +201,7 @@ instance ToMarkup Commit where
     [shamlet|
     <div .commit>
       <div .commit__title>
-        <span>#{repository} #{branch}:
+        <span>#{repository}:
         <span>#{fst message}
       $maybe message <- (snd message)
         <p .commit__message>#{message}
@@ -235,7 +235,7 @@ getCommits :: FilePath -> IO [Commit]
 getCommits url = do
   repo <- G.openRepository GB.lgFactory G.defaultRepositoryOptions {G.repoPath = url}
   G.runRepository GB.lgFactory repo do
-    refs <- filter ("refs/heads/" `T.isPrefixOf`) <$> G.listReferences
+    refs <- filter (`elem` ["refs/heads/main", "refs/heads/master"]) <$> G.listReferences
     concat
       <$> mapM
         ( \ref -> do
-- 
cgit v1.2.3