From 6c289708280f721338a3f334196cf92f99ea2d14 Mon Sep 17 00:00:00 2001 From: Piyush P Kurur Date: Wed, 22 Mar 2017 11:04:54 +0530 Subject: one more instance of showBase16 removed. --- HTTP/ProofOfWork.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'HTTP') diff --git a/HTTP/ProofOfWork.hs b/HTTP/ProofOfWork.hs index 61fea20..a8d24f7 100644 --- a/HTTP/ProofOfWork.hs +++ b/HTTP/ProofOfWork.hs @@ -109,7 +109,7 @@ mkRequestID secret = mkRequeestID' secret <$> mkRandomSalt mkRequeestID' :: RequestIDSecret -> RandomSalt -> RequestID mkRequeestID' (RequestIDSecret key) salt = let hmac = Raaz.hmacSha256 key (encodeUtf8 $ fromRandomSalt salt) - in RequestID salt (T.pack (showBase16 hmac)) + in RequestID salt $ T.toByteString (Raaz.encode hmac :: Base16) validRequestID :: RequestIDSecret -> RequestID -> Bool validRequestID secret rid = -- cgit v1.2.3