disable setToxPolicy and therefore persue[sic] contact threads

2 files changed, 12 insertions, 2 deletions

diff --git a/Connection/Tox.hs b/Connection/Tox.hs
index 1cbbdaee..56777e99 100644
--- a/Connection/Tox.hs
+++ b/Connection/Tox.hs
@@ -249,12 +249,18 @@ stringToKey_ s = let (xs,ys) = break (==':') s
                                else do me <- readMaybe xs
                                        them <- readMaybe (drop 1 ys)
                                        return $ Key me them
+setNoToxPolicy :: Parameters extra
+             -> TVar (Map.Map Key SessionState)
+             -> Key
+             -> Policy
+             -> IO ()
+setNoToxPolicy _ _ _ _ = return ()
 
 toxManager :: Parameters extra -> IO (Manager ToxProgress Key)
 toxManager params = do
     conmap <- newTVarIO Map.empty
     return Manager
-        { setPolicy    = setToxPolicy params conmap             -- k -> Policy -> IO ()
+        { setPolicy    = setNoToxPolicy params conmap
         , connections  = fmap sessionStatus <$> readTVar conmap -- STM (Map k (Connection status))
         , stringToKey  = stringToKey_                           -- String -> Maybe k
         , showProgress = show                                   -- status -> String
diff --git a/Connection/Tox/Threads.hs b/Connection/Tox/Threads.hs
index 6a7edeb4..f3c94fc1 100644
--- a/Connection/Tox/Threads.hs
+++ b/Connection/Tox/Threads.hs
@@ -10,7 +10,11 @@
 --
 {-# LANGUAGE CPP        #-}
 {-# LANGUAGE LambdaCase #-}
-module Connection.Tox.Threads where
+module Connection.Tox.Threads
+  ( PersueContactMethods(..)
+  , FreshenContactMethods(..)
+  , persueContact
+  ) where
 
 import Connection
 -- import Connection.Tox