UDP tracker: close session function

diff --git a/src/FuncTorrent/Tracker/Udp.hs b/src/FuncTorrent/Tracker/Udp.hs
index 7467ce8cd5a6d707eea50d0d4a68043f6ea62c34..e24944a994a5d322b4cf8283c3c4a55474c1854e 100644 (file)
--- a/src/FuncTorrent/Tracker/Udp.hs
+++ b/src/FuncTorrent/Tracker/Udp.hs
@@ -31,7 +31,7 @@ import Data.ByteString (ByteString)
 import qualified Data.ByteString.Char8 as BC
 import Data.ByteString.Lazy (fromStrict, toStrict)
 import Data.Word (Word32, Word64)
-import Network.Socket (Socket, Family( AF_INET ), SocketType( Datagram ), defaultProtocol, SockAddr(..), socket, inet_addr)
+import Network.Socket (Socket, Family( AF_INET ), SocketType( Datagram ), defaultProtocol, SockAddr(..), socket, inet_addr, close)
 import Network.Socket.ByteString (sendTo, recvFrom)
 import System.Random (randomIO)
 
@@ -169,5 +169,5 @@ startSession ip port = do
                             , tid = r
                             , addr = (SockAddrInet (fromIntegral port) hostAddr) }
   
--- closeSession :: UDPTrackerHandle
-
+closeSession :: UDPTrackerHandle -> IO ()
+closeSession (UDPTrackerHandle s _ _) = close s