From ee22a91ab847f63a22466f3bf63e33ca29da9cfe Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Tue, 26 Jul 2016 21:25:52 +0200
Subject: makeFixedOutputPath(): Drop superfluous HashType argument

---
 perl/lib/Nix/Store.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl')

diff --git a/perl/lib/Nix/Store.xs b/perl/lib/Nix/Store.xs
index 697fd79f9..6b137a13c 100644
--- a/perl/lib/Nix/Store.xs
+++ b/perl/lib/Nix/Store.xs
@@ -288,8 +288,8 @@ SV * makeFixedOutputPath(int recursive, char * algo, char * hash, char * name)
     PPCODE:
         try {
             HashType ht = parseHashType(algo);
-            Path path = store()->makeFixedOutputPath(recursive, ht,
-                parseHash16or32(ht, hash), name);
+            Hash h = parseHash16or32(ht, hash);
+            Path path = store()->makeFixedOutputPath(recursive, h, name);
             XPUSHs(sv_2mortal(newSVpv(path.c_str(), 0)));
         } catch (Error & e) {
             croak("%s", e.what());
-- 
cgit v1.2.3