From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 30 Jun 2016 21:50:47 +0000 (-0700)
Subject: hashcash: quick fix for string argument to checksum-bytes.
X-Git-Tag: unmaintained~865
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=58dd52e82e1bebdabad0260eb11f0f6081edb4e4

hashcash: quick fix for string argument to checksum-bytes.
---

diff --git a/extra/hashcash/hashcash.factor b/extra/hashcash/hashcash.factor
index 008cd0ec87..95a8b43d47 100644
--- a/extra/hashcash/hashcash.factor
+++ b/extra/hashcash/hashcash.factor
@@ -1,8 +1,9 @@
 ! Copyright (C) 2009 Diego Martinelli.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors byte-arrays calendar calendar.format checksums
-checksums.openssl classes.tuple fry kernel make math math.functions
-math.parser math.ranges present random sequences splitting strings ;
+USING: accessors calendar calendar.format checksums
+checksums.openssl classes.tuple fry io.encodings.ascii
+io.encodings.string kernel math math.functions math.parser
+math.ranges present random sequences splitting ;
 IN: hashcash
 
 ! Hashcash implementation
@@ -49,7 +50,7 @@ M: hashcash string>>
 <PRIVATE
 
 : sha1-checksum ( str -- bytes )
-    openssl-sha1 checksum-bytes ; inline
+    ascii encode openssl-sha1 checksum-bytes ; inline
 
 : set-suffix ( tuple guess -- tuple )
     >hex >>suffix ;