From d8783874241a448cb4bc1ca21bdc57844ffeed18 Mon Sep 17 00:00:00 2001
From: John David Pressman <jd@jdpressman.com>
Date: Wed, 22 Jan 2020 01:40:23 -0800
Subject: [PATCH] Add salt to hashlock contract

---
 src/test/contracts/hashlock.mligo | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/test/contracts/hashlock.mligo b/src/test/contracts/hashlock.mligo
index b30f2bc9b..acd7fcf9b 100644
--- a/src/test/contracts/hashlock.mligo
+++ b/src/test/contracts/hashlock.mligo
@@ -9,6 +9,9 @@ type parameter = {
 }
 
 let main ((p,s): parameter * storage) : operation list * storage =
+  (* We have to use a hash salted with the solvers address, otherwise a baker
+     could steal *)
+  let salted: bytes = Bytes.concat p.hashable (Bytes.pack sender) in
   if ((Crypto.sha256 p.hashable) = s.hashed) && s.unused
   then
     let s: storage = {hashed = s.hashed; unused = false} in