tox: More stubs related to connection manager.

1 files changed, 22 insertions, 4 deletions

diff --git a/Connection/Tox.hs b/Connection/Tox.hs
index de2bb879..5a9dc5eb 100644
--- a/Connection/Tox.hs
+++ b/Connection/Tox.hs
@@ -9,7 +9,7 @@ import qualified Connection   as G
          ;import Connection   (Manager (..), Policy (..))
 import Control.Concurrent.STM
 import Control.Monad
-import Data.Dependent.Sum
+-- import Data.Dependent.Sum
 import Data.Functor.Identity
 import qualified Data.Map    as Map
 import Connection.Tox.Threads
@@ -128,6 +128,24 @@ setToxPolicy :: Parameters
 setToxPolicy params conmap k policy = case policy of
     TryingToConnect -> do
         mst <- lookupForPolicyChange conmap k policy
+        let accept_methods = AcceptContactMethods
+                { getHandshake        = retry -- :: STM (Handshake Identity)
+                , handshakeIsSuitable = (\_ -> return False) -- :: Handshake Identity -> STM Bool
+                , transitionToState   = (\_ -> return ()) :: G.Status ToxProgress -> STM ()
+                }
+            persue_methods = PersueContactMethods
+                { getHandshakeParams = retry -- :: STM params
+                , sendHandshake      = \_ -> return () -- :: params -> IO ()
+                , retryInterval      = _todo :: Int
+                }
+            freshen_methods = FreshenContactMethods
+                { dhtkeyInterval   = _todo :: Int
+                , sockAddrInterval = _todo :: Int
+                , nodeSch          = _todo :: NodeSearch
+                , getDHTKey        = retry :: STM (Maybe NodeId)
+                , getSockAddr      = retry -- :: STM (Maybe SockAddr)
+                , getBuckets       = retry -- :: STM (BucketList NodeInfo)
+                }
         forM_ mst $ \st -> do
             let getPolicy = readTVar $ connPolicy st
             tasks <- atomically $ readTVar (sessionTasks st)
@@ -137,14 +155,14 @@ setToxPolicy params conmap k policy = case policy of
             accepting <- if astat /= ThreadRunning
                           then launch ("accept:"++show k)
                                 (G.InProgress $ toEnum 0)
-                                $ acceptContact  getPolicy _accept_methods
+                                $ acceptContact  getPolicy accept_methods
                           else return $ accepting tasks
             persuing <- launch ("persue:"++show k)
                                 (G.InProgress $ toEnum 0)
-                               $ persueContact  getPolicy _get_status _persue_methods
+                               $ persueContact  getPolicy _get_status persue_methods
             refreshing <- launch ("refresh:"++show k)
                                 (G.InProgress $ toEnum 0)
-                               $ freshenContact getPolicy _get_status _freshen_methods
+                               $ freshenContact getPolicy _get_status freshen_methods
             atomically $ do
                 writeTVar (sessionTasks st) $ SessionTasks accepting persuing refreshing
                 let routing   = toxRouting $ toxTransports params