diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-03-21 10:12:57 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-03-21 10:12:57 -0400 |
| commit | e9366e61e6108feba8db68df486961c58a442ff5 (patch) | |
| tree | e09c1099ce5a8f80121dd13436c6e52049f4e7f5 | |
| parent | 4f38d369b9ac2237e64feef34a53640cc622c08a (diff) | |
| download | keysafe-e9366e61e6108feba8db68df486961c58a442ff5.tar.gz | |
layout
| -rw-r--r-- | Encryption.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Encryption.hs b/Encryption.hs index 6c51e63..3748edf 100644 --- a/Encryption.hs +++ b/Encryption.hs @@ -202,8 +202,9 @@ encodeEncryptableBytes tunables content = EncryptableBytes $ -- | Encoded, so that it does not contain any NULs. sha :: B.ByteString -> B.ByteString sha = Raaz.toByteString . enc . Raaz.sha256 - where enc :: Raaz.Encodable a => a -> Raaz.Base16 - enc = Raaz.encode + where + enc :: Raaz.Encodable a => a -> Raaz.Base16 + enc = Raaz.encode padBytes :: Int -> B.ByteString -> B.ByteString padBytes n b = b <> padding |