From 39e1d866d3321bffd46502daa04dd68d6380b392 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Mon, 2 Nov 2015 16:30:12 +0300
Subject: Use ByteString.append explicitly

---
 src/ZeroBin/SJCL.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 }
-- 
cgit v1.2.3