diff options
| author | Piyush P Kurur <ppk@cse.iitk.ac.in> | 2017-03-22 11:04:54 +0530 |
|---|---|---|
| committer | Piyush P Kurur <ppk@cse.iitk.ac.in> | 2017-03-22 11:17:54 +0530 |
| commit | 6c289708280f721338a3f334196cf92f99ea2d14 (patch) | |
| tree | cf02599297adb6202dbe9168846f0b16bf8f73d8 /HTTP | |
| parent | e9366e61e6108feba8db68df486961c58a442ff5 (diff) | |
| download | keysafe-6c289708280f721338a3f334196cf92f99ea2d14.tar.gz | |
one more instance of showBase16 removed.
Diffstat (limited to 'HTTP')
| -rw-r--r-- | HTTP/ProofOfWork.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 = |