aboutsummaryrefslogtreecommitdiff
path: root/Remote/P2P.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Remote/P2P.hs')
-rw-r--r--Remote/P2P.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/Remote/P2P.hs b/Remote/P2P.hs
index 83ce258de..cfed5c604 100644
--- a/Remote/P2P.hs
+++ b/Remote/P2P.hs
@@ -116,10 +116,8 @@ lock u addr connpool k callback =
go False = giveup "can't lock content"
go True = withVerifiedCopy LockedCopy u (return True) callback
--- | A connection to the peer.
-data Connection
- = OpenConnection P2PConnection
- | ClosedConnection
+-- | A connection to the peer, which can be closed.
+type Connection = ClosableConnection P2PConnection
type ConnectionPool = TVar [Connection]