diff options
| author | David Barksdale <amatus.amongus@gmail.com> | 2010-04-08 00:27:16 -0700 |
|---|---|---|
| committer | David Barksdale <amatus.amongus@gmail.com> | 2010-04-08 00:27:16 -0700 |
| commit | 862ef1b98643d9def18309072f78143a52e83b7b (patch) | |
| tree | d6e1fed049ba514e33d4548fa6dc2772ccdc0c27 | |
| parent | 3bc43537f315436ad9c8c94582e85e9555e795e6 (diff) | |
Remote peers have public-key from the hello.
| -rw-r--r-- | src/org/gnu/clojure/gnunet/hello.clj | 2 | ||||
| -rw-r--r-- | src/org/gnu/clojure/gnunet/peer.clj | 7 |
2 files changed, 7 insertions, 2 deletions
diff --git a/src/org/gnu/clojure/gnunet/hello.clj b/src/org/gnu/clojure/gnunet/hello.clj new file mode 100644 index 0000000..a8392db --- /dev/null +++ b/src/org/gnu/clojure/gnunet/hello.clj @@ -0,0 +1,2 @@ +(ns org.gnu.clojure.gnunet.hello) + diff --git a/src/org/gnu/clojure/gnunet/peer.clj b/src/org/gnu/clojure/gnunet/peer.clj index b60c4d6..cc3c7a5 100644 --- a/src/org/gnu/clojure/gnunet/peer.clj +++ b/src/org/gnu/clojure/gnunet/peer.clj @@ -2,16 +2,19 @@ (:use (org.gnu.clojure.gnunet identity))) (defstruct remote-peer + :public-key :id) (def peer (apply create-struct (concat (keys (struct-map remote-peer)) - (list :keypair)))) + (list + :private-key)))) (defstruct peer-options :keypair) (defn new-peer [options] (struct-map peer - :keypair (:keypair options) + :public-key (.getPublic (:keypair options)) + :private-key (.getPrivate (:keypair options)) :id (generate-id (:keypair options)))) |