Make display of heads work

[catagits/Gitalist.git] / lib / Gitalist / Controller / Repository.pm

diff --git a/lib/Gitalist/Controller/Repository.pm b/lib/Gitalist/Controller/Repository.pm
index 5015ae2..2560a98 100644 (file)
--- a/lib/Gitalist/Controller/Repository.pm
+++ b/lib/Gitalist/Controller/Repository.pm
@@ -30,6 +30,14 @@ sub shortlog : Chained('find') Args(0) {
     $c->forward('/shortlog');
 }
 
+sub heads : Chained('find') Args(0) {
+    my ($self, $c) = @_;
+    $c->stash(
+        no_wrapper => 1,
+        heads => $c->stash->{Repository}->heads,
+    );
+}
+
 sub log : Chained('find') Args(0) {
     my ($self, $c) = @_;
     $c->stash(template => 'log.tt2');