aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIgor Pashev <pashev.igor@gmail.com>2015-11-02 16:30:12 +0300
committerIgor Pashev <pashev.igor@gmail.com>2015-11-02 16:30:12 +0300
commit39e1d866d3321bffd46502daa04dd68d6380b392 (patch)
tree827f672e789610dc3a569ef603077b6495325984
parentdb68cce131f90fc5362b82acf19e5de9db2f48cc (diff)
downloadzerobin-39e1d866d3321bffd46502daa04dd68d6380b392.tar.gz
Use ByteString.append explicitly
-rw-r--r--src/ZeroBin/SJCL.hs2
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 }