diff options
| author | Igor Pashev <pashev.igor@gmail.com> | 2015-11-02 16:30:12 +0300 |
|---|---|---|
| committer | Igor Pashev <pashev.igor@gmail.com> | 2015-11-02 16:30:12 +0300 |
| commit | 39e1d866d3321bffd46502daa04dd68d6380b392 (patch) | |
| tree | 827f672e789610dc3a569ef603077b6495325984 /src/ZeroBin/SJCL.hs | |
| parent | db68cce131f90fc5362b82acf19e5de9db2f48cc (diff) | |
| download | zerobin-39e1d866d3321bffd46502daa04dd68d6380b392.tar.gz | |
Use ByteString.append explicitly
Diffstat (limited to 'src/ZeroBin/SJCL.hs')
| -rw-r--r-- | src/ZeroBin/SJCL.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ZeroBin/SJCL.hs b/src/ZeroBin/SJCL.hs index b121546..fc3aa1b 100644 --- a/src/ZeroBin/SJCL.hs +++ b/src/ZeroBin/SJCL.hs @@ -84,7 +84,7 @@ encrypt password plaintext = do BS.replicate (fromIntegral eL) 0 ] a1iv = ivAdd (fromJust . makeIV $ a0) 1 - ciphtext = C.append + ciphtext = BS.append (ctrCombine cipher a1iv plaintext) (BA.xor (ecbEncrypt cipher a0) tag) return Content { iv = toWeb ivd, salt = toWeb slt, ct = toWeb ciphtext } |