diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2025-02-20 18:17:24 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2025-02-20 18:27:07 +0100 |
| commit | 03e4941010ac41a496383c3c8aad0d6c3e0ad35d (patch) | |
| tree | 276802149e55abbd5451b2fa6db03d8450903fbb | |
| parent | a42267246099b0d4d7467669bf09c830aab73d43 (diff) | |
only include main branches
| -rw-r--r-- | app/Main.hs | 4 |
1 files 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 |