1 files changed, 5 insertions, 0 deletions
diff --git a/P2P/IO.hs b/P2P/IO.hs
index 6cdc5b7d5..8b532c7f4 100644
--- a/P2P/IO.hs
+++ b/P2P/IO.hs
@@ -10,6 +10,7 @@
 module P2P.IO
 	( RunProto
 	, P2PConnection(..)
+	, ClosableConnection(..)
 	, stdioP2PConnection
 	, connectPeer
 	, closeConnection
@@ -51,6 +52,10 @@ data P2PConnection = P2PConnection
 	, connOhdl :: Handle
 	}
 
+data ClosableConnection conn
+	= OpenConnection conn
+	| ClosedConnection
+
 -- P2PConnection using stdio.
 stdioP2PConnection :: Git.Repo -> P2PConnection
 stdioP2PConnection g = P2PConnection