         signature (codecs/safebase64->bytes signature)
         salt (codecs/safebase64->bytes salt)
         stamp (codecs/safebase64->bytes stamp)
-        candidate (codecs/concat-byte-arrays input salt stamp)]
+        candidate (bytes/concat input salt stamp)]
     (if (verify-signature candidate signature key alg)
       (either/right (nippy/thaw input {:v1-compatibility? false}))
       (either/left "Invalid signature."))))

  (let [input (serialize data compress)
        salt (nonce/random-nonce 8)
        stamp (codecs/long->bytes (timestamp-millis))
        signature (-> (codecs/concat-byte-arrays input salt stamp)
                      (calculate-signature key alg))
        result (str/join "." [(codecs/bytes->safebase64 input)
                              (codecs/bytes->safebase64 signature)

  transfer, is not really good candidate for auth token
  because of not good space efficiency for small messages."
  (:require [buddy.core.codecs :as codecs]
            [buddy.core.bytes :as bytes]
            [buddy.core.keys :as keys]
            [buddy.core.mac.hmac :as hmac]
            [buddy.core.mac.poly1305 :as poly]
