From ccf6e6062cd103dc82d305b2fa0233288e3e33c5 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Mon, 6 Jul 2015 17:12:37 +0200
Subject: [PATCH] Store full Mercurial revision hashes

---
 src/lib/Hydra/Plugin/MercurialInput.pm | 2 +-
 src/root/common.tt                     | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/lib/Hydra/Plugin/MercurialInput.pm b/src/lib/Hydra/Plugin/MercurialInput.pm
index 07db0728..6882bcce 100644
--- a/src/lib/Hydra/Plugin/MercurialInput.pm
+++ b/src/lib/Hydra/Plugin/MercurialInput.pm
@@ -52,7 +52,7 @@ sub fetchInput {
     die "error pulling latest change mercurial repo at `$uri':\n$stderr" if $res;
 
     (my $res1, $stdout, $stderr) = captureStdoutStderr(600,
-        "hg", "log", "-r", $id, "--template", "{node|short} {rev} {branch}");
+        "hg", "log", "-r", $id, "--template", "{node} {rev} {branch}");
     die "error getting branch and revision of $id from `$uri':\n$stderr" if $res1;
 
     my ($revision, $revCount, $branch) = split ' ', $stdout;
diff --git a/src/root/common.tt b/src/root/common.tt
index 8ebdbd47..75a66b63 100644
--- a/src/root/common.tt
+++ b/src/root/common.tt
@@ -374,6 +374,8 @@ BLOCK renderShortEvalInput;
     r[% input.revision %]
   [% ELSIF input.type == "git" %]
     <tt>[% input.revision.substr(0, 7) %]</tt>
+  [% ELSIF input.type == "hg" %]
+    <tt>[% input.revision.substr(0, 12) %]</tt>
   [% ELSIF input.type == "build" || input.type == "sysbuild" %]
     <a href="[% c.uri_for('/build' input.get_column('dependency')) %]">[% input.get_column('dependency') %]</a>
   [% ELSE %]