diff --git a/src/Vervis/Handler/Repo.hs b/src/Vervis/Handler/Repo.hs index a9b16fc..235ebec 100644 --- a/src/Vervis/Handler/Repo.hs +++ b/src/Vervis/Handler/Repo.hs @@ -498,13 +498,28 @@ postPostReceiveR = do summary <- do let mbranch = H.pushBranch push total = pushCommitsTotal pushAP + lasts = pushCommitsLast pushAP + rest firsts = total - length firsts - length lasts + hashText (Hash b) = decodeUtf8 b + commitW c = + [hamlet| + + #{commitTitle c} + |] withUrlRenderer [hamlet|

- #{shr2text shrUser} - \ pushed #{total} # - \ #{commitsText mbranch total} to repo # - #{rp2text rp}^{branchText shr rp mbranch}. + #{shr2text shrUser} + \ pushed #{total} # + \ #{commitsText mbranch total} to repo # + #{rp2text rp}^{branchText shr rp mbranch}: +