 
 (s/fdef verify-client-public-key-triad
         :args (s/cat :state ::state/state
-                     :client-long-key ::shared/long-pk
                      :supplied-client-short-key ::shared/short-pk
                      ;; TODO: Come up with a ByteBuf spec
                      ::client-message-box any?)

                     "My long-term public key:\n"
                     (b-t/->string (.getPublicKey (get-in state [::shared/my-keys ::shared/long-pair])))
                     "Shared:\n"
                     ;; Client's version:
                     #_[0xc5 0x91 0x62 0xcd
                        0xfe 0xc1 0x33 0x89
                        0xa3 0xff 0x82 0x3d
                        0x26 0x2d 0x09 0x03
                        0x09 0xbc 0x9e 0xdd
                        0x35 0x87 0x1b 0x1c
                        0x81 0xb5 0xff 0x2a
                        0xa9 0xe1 0x6b 0x58]
                     (b-t/->string shared-secret)))
      ;; Failing here.
      ;; The shared secret doesn't match what the client used to encrypt the box.
      (when-let [inner-pk (crypto/open-crypto-box
                           K/vouch-nonce-prefix
                           (::K/inner-i-nonce client-message-box)
                           (::K/hidden-client-short-pk client-message-box)
                           shared-secret)]
        (b-t/bytes= supplied-client-short-key inner-pk)))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Public

                                            my-long-secret)]
      (log/info (str "Getting ready to decrypt the inner-most hidden public key\n"
                     "Supplied client long-term key:\n"
                     (b-t/->string client-long-key)
                     "which arrived in: "
                     client-long-buffer
