From fb3376eb5b3ba2e139102f04c9eaa4d7cf4b4646 Mon Sep 17 00:00:00 2001
From: Piyush P Kurur <ppk@cse.iitk.ac.in>
Date: Sat, 4 Mar 2017 22:51:23 +0530
Subject: small improvement on encoding using sha.

---
 Encryption.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Encryption.hs b/Encryption.hs
index 3e085a0..be1e398 100644
--- a/Encryption.hs
+++ b/Encryption.hs
@@ -202,7 +202,9 @@ encodeEncryptableBytes tunables content = EncryptableBytes $
 
 -- | Encoded, so that it does not contain any NULs.
 sha :: B.ByteString -> B.ByteString
-sha = BU8.fromString . Raaz.showBase16 . Raaz.sha256
+sha = Raaz.toByteString . enc . Raaz.sha256
+  where enc :: Raaz.Encodable a => a -> Raaz.Base16
+        enc = Raaz.encode
 
 padBytes :: Int -> B.ByteString -> B.ByteString
 padBytes n b = b <> padding
-- 
cgit v1.2.3