2 files changed, 6 insertions, 0 deletions

diff --git a/dht/src/Data/Tox/Onion.hs b/dht/src/Data/Tox/Onion.hs
index bd802c75..0338111b 100644
--- a/dht/src/Data/Tox/Onion.hs
+++ b/dht/src/Data/Tox/Onion.hs
@@ -848,6 +848,7 @@ data OnionRoute = OnionRoute
     , routeNodeC  :: NodeInfo
     , routeRelayPort :: Maybe PortNumber
     }
+ deriving Show
 
 
 wrapOnion :: Serialize (Forwarding n msg) =>
diff --git a/dht/src/Network/QueryResponse/TCP.hs b/dht/src/Network/QueryResponse/TCP.hs
index e4831fb2..fdca86b4 100644
--- a/dht/src/Network/QueryResponse/TCP.hs
+++ b/dht/src/Network/QueryResponse/TCP.hs
@@ -175,6 +175,11 @@ closeAll tcpcache stream = do
         case r of TCPSession{tcpState=st,tcpHandle=h} -> streamGoodbye st >> hClose h
                   _                                   -> return ()
 
+-- Use a cache of TCP client connections for sending (and receiving) packets.
+-- The boolean value prepended to the message allows the sender to specify
+-- whether or not a new connection will be initiated if neccessary.  If 'False'
+-- is passed, then the packet will be sent only if there already exists a
+-- connection.
 tcpTransport :: Int -- ^ maximum number of TCP links to maintain.
                 -> StreamHandshake addr x y
                 -> IO (TCPCache (SessionProtocol x y), TransportA err addr x (Bool,y))