summaryrefslogtreecommitdiff
path: root/src/Network/DatagramServer
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network/DatagramServer')
-rw-r--r--src/Network/DatagramServer/Tox.hs3
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