diff options
| author | joe <joe@jerkface.net> | 2017-07-03 22:59:31 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-03 22:59:31 -0400 |
| commit | f75d515bc0100e5ca372d592aa2f5f4ff2fc858c (patch) | |
| tree | 71bc354c8f6b8fed2275eb8c215d99b654c7f473 /src/Network/DatagramServer | |
| parent | 78b05bf38b83b5d46468e1f938bb8c2d9dd0804f (diff) | |
Fleshed out KRPC instances for Mainline DHT.
Diffstat (limited to 'src/Network/DatagramServer')
| -rw-r--r-- | src/Network/DatagramServer/Tox.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/DatagramServer/Tox.hs b/src/Network/DatagramServer/Tox.hs index 3a6135cc..f666b951 100644 --- a/src/Network/DatagramServer/Tox.hs +++ b/src/Network/DatagramServer/Tox.hs | |||
| @@ -274,7 +274,8 @@ instance Envelope Message where | |||
| 274 | 274 | ||
| 275 | buildReply self addr qry payload = (fmap (const payload) qry) { msgClient = self } | 275 | buildReply self addr qry payload = (fmap (const payload) qry) { msgClient = self } |
| 276 | 276 | ||
| 277 | -- buildQuery = todo | 277 | -- buildQuery :: NodeId envelope -> SockAddr -> QueryMethod envelope -> TransactionID envelope -> a -> IO (envelope a) |
| 278 | -- buildQuery nid addr meth tid q = todo | ||
| 278 | 279 | ||
| 279 | uniqueTransactionId cnt = do | 280 | uniqueTransactionId cnt = do |
| 280 | return $ either (error "failed to create TransactionId") TID | 281 | return $ either (error "failed to create TransactionId") TID |