disconnect :: TCPServer -> Handle -> IO ()
disconnect serv@TCPServer{..} h = do
 _ <- decr _connected
 hClose h
disconnect :: TCPServer -> Handle -> IO ()
disconnect serv@TCPServer{..} h = do
 _ <- decr _connected
 hClose h
disconnect serv@TCPServer{..} h = do
 _ <- decr _connected
 hClose h