need to auth with the peer

1 files changed, 6 insertions, 0 deletions

diff --git a/P2P/IO.hs b/P2P/IO.hs
index f63b2808b..9abefb8a0 100644
--- a/P2P/IO.hs
+++ b/P2P/IO.hs
@@ -11,6 +11,7 @@ module P2P.IO
 	( RunProto
 	, P2PConnection(..)
 	, connectPeer
+	, closeConnection
 	, setupHandle
 	, runNetProto
 	, runNet
@@ -60,6 +61,11 @@ connectPeer g (TorAnnex onionaddress onionport) = do
 		, connOhdl = h
 		}
 
+closeConnection :: P2PConnection -> IO ()
+closeConnection conn = do
+	hClose (connIhdl conn)
+	hClose (connOhdl conn)
+
 setupHandle :: Socket -> IO Handle
 setupHandle s = do
 	h <- socketToHandle s ReadWriteMode