Stubs for maintaining onion routes.

1 files changed, 5 insertions, 11 deletions

diff --git a/src/Network/Tox/Transport.hs b/src/Network/Tox/Transport.hs
index d441dc0a..d4e1a754 100644
--- a/src/Network/Tox/Transport.hs
+++ b/src/Network/Tox/Transport.hs
@@ -13,28 +13,22 @@ import Crypto.Tox
 import Network.Tox.DHT.Transport
 import Network.Tox.Onion.Transport
 import Network.Tox.Crypto.Transport
+import OnionRouter
 
 import Network.Socket
 
-type RouteId = () -- todo
-
-lookupSender :: SockAddr -> Nonce8 -> IO (Maybe (NodeInfo, RouteId))
-lookupSender _ _ = return Nothing -- todo
-
-lookupRoute :: NodeInfo -> RouteId -> IO (Maybe OnionRoute)
-lookupRoute _ _ = return Nothing -- todo
-
 toxTransport ::
       TransportCrypto
+          -> OnionRouter
           -> (PublicKey -> IO (Maybe NodeInfo))
           -> UDPTransport
           -> IO ( Transport String NodeInfo (DHTMessage Encrypted8)
                 , Transport String (OnionDestination RouteId) (OnionMessage Encrypted)
                 , Transport String SockAddr NetCrypto )
-toxTransport crypto closeLookup udp = do
+toxTransport crypto orouter closeLookup udp = do
     (dht,udp1) <- partitionTransport parseDHTAddr (Just . encodeDHTAddr) $ forwardOnions crypto udp
-    (onion,udp2) <- partitionTransportM (parseOnionAddr lookupSender)
-                                        (encodeOnionAddr lookupRoute)
+    (onion,udp2) <- partitionTransportM (parseOnionAddr $ lookupSender orouter)
+                                        (encodeOnionAddr $ lookupRoute orouter)
                                         udp1
     let netcrypto = layerTransport parseNetCrypto encodeNetCrypto udp2
     return ( forwardDHTRequests crypto closeLookup dht