diff options
Diffstat (limited to 'dht/src/Data/Tox/Onion.hs')
-rw-r--r-- | dht/src/Data/Tox/Onion.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/dht/src/Data/Tox/Onion.hs b/dht/src/Data/Tox/Onion.hs index e19f71b6..a9bc4e1d 100644 --- a/dht/src/Data/Tox/Onion.hs +++ b/dht/src/Data/Tox/Onion.hs | |||
@@ -125,12 +125,12 @@ data OnionDestination r | |||
125 | = OnionToOwner | 125 | = OnionToOwner |
126 | { onionNodeInfo :: NodeInfo | 126 | { onionNodeInfo :: NodeInfo |
127 | , onionReturnPath :: ReturnPath N3 -- ^ Somebody else's path to us. | 127 | , onionReturnPath :: ReturnPath N3 -- ^ Somebody else's path to us. |
128 | } | 128 | } -- ^ incoming queries and outgoing responses |
129 | | OnionDestination | 129 | | OnionDestination |
130 | { onionAliasSelector' :: AliasSelector | 130 | { onionAliasSelector' :: AliasSelector |
131 | , onionNodeInfo :: NodeInfo | 131 | , onionNodeInfo :: NodeInfo |
132 | , onionRouteSpec :: Maybe r -- ^ Our own onion-path. | 132 | , onionRouteSpec :: Maybe r -- ^ Our own onion-path. |
133 | } | 133 | } -- ^ outgoing queries and incoming responses |
134 | deriving Show | 134 | deriving Show |
135 | 135 | ||
136 | onionAliasSelector :: OnionDestination r -> AliasSelector | 136 | onionAliasSelector :: OnionDestination r -> AliasSelector |
@@ -213,6 +213,7 @@ putOnionMsg (OnionToRoute pubkey a) = putOnionAsymm 0x85 (putPublicKey | |||
213 | putOnionMsg (OnionAnnounceResponse n8 n24 x) = put (0x84 :: Word8) >> put n8 >> put n24 >> put x | 213 | putOnionMsg (OnionAnnounceResponse n8 n24 x) = put (0x84 :: Word8) >> put n8 >> put n24 >> put x |
214 | putOnionMsg (OnionToRouteResponse a) = putOnionAsymm 0x86 (return ()) a | 214 | putOnionMsg (OnionToRouteResponse a) = putOnionAsymm 0x86 (return ()) a |
215 | 215 | ||
216 | -- | /r/ parameter for 'OnionDestination' | ||
216 | newtype RouteId = RouteId Int | 217 | newtype RouteId = RouteId Int |
217 | deriving Show | 218 | deriving Show |
218 | 219 | ||