TCP Relay Server library module.

1 files changed, 1 insertions, 13 deletions

diff --git a/examples/toxrelay.hs b/src/Network/Tox/Relay.hs
index 2743c5d8..17bbc379 100644
--- a/examples/toxrelay.hs
+++ b/src/Network/Tox/Relay.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE LambdaCase          #-}
 {-# LANGUAGE RecordWildCards     #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+module Network.Tox.Relay (tcpRelay) where
 
 import Control.Concurrent.MVar
 import Control.Concurrent.STM
@@ -232,16 +233,3 @@ tcpRelay udp_addr sendOnion = do
                       [b443,b80,udp_addr,b33445,bany]
     return (h,sendTCP_ clients)
 
-main :: IO ()
-main = do
-    udp_addr <- getBindAddress "33445" True
-    let sendOnion :: SockAddr -> OnionRequest N1 -> IO ()
-        sendOnion _ _ = return ()
-    (h,sendTCP) <- tcpRelay udp_addr sendOnion
-    boundPort <- socketPort $ listenSocket h
-    putStrLn $ "Listening on port: " ++ show boundPort
-
-    putStrLn $ "ENTER to quit..."
-    s <- getLine
-
-    quitListening h