diff options
| author | David Barksdale <amatus@amatus.name> | 2014-09-28 13:02:55 -0500 |
|---|---|---|
| committer | David Barksdale <amatus@amatus.name> | 2014-09-28 13:02:55 -0500 |
| commit | aaca790195d31958da3d36df1497c3613df3ee47 (patch) | |
| tree | da9df8341e83555fd7394320424cf4f77214c7e6 /src/cljs/gnunet_web/transport.cljs | |
| parent | 58b3d8411f6a2f836e8f71ebfccf9e426f0b7771 (diff) | |
Cleaner interface to the maybe monad
Diffstat (limited to 'src/cljs/gnunet_web/transport.cljs')
| -rw-r--r-- | src/cljs/gnunet_web/transport.cljs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/cljs/gnunet_web/transport.cljs b/src/cljs/gnunet_web/transport.cljs index d995a14..82cfb54 100644 --- a/src/cljs/gnunet_web/transport.cljs +++ b/src/cljs/gnunet_web/transport.cljs @@ -74,8 +74,8 @@ (let [message-channel (js/MessageChannel.)] (set! (.-onmessage (.-port1 message-channel)) (fn [event] - (let [message (.-v ((parse-message-types #{parse-hello}) - (.-data event)))] + (let [message @((parse-message-types #{parse-hello}) + (.-data event))] (if (coll? message) (callback (:message (first message))))))) (client-connect "transport" "web app (monitor)" @@ -88,9 +88,8 @@ (let [message-channel (js/MessageChannel.)] (set! (.-onmessage (.-port1 message-channel)) (fn [event] - (let [message (.-v ((parse-message-types - #{parse-peer-iterate-reply}) - (.-data event)))] + (let [message @((parse-message-types #{parse-peer-iterate-reply}) + (.-data event))] (if (coll? message) (callback (:message (first message))))))) (client-connect "transport" "web app (monitor-peers)" |