 
 (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?)

            [frereth-cp.shared.crypto :as crypto]
            [frereth-cp.util :as util])
  (:import clojure.lang.ExceptionInfo
           io.netty.buffer.Unpooled))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Named Constants

                                            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
