From 21d09f81e546e9c73c08dd48d4fa0638d0223f23 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Thu, 10 Jun 2021 13:33:16 +0200
Subject: [PATCH] ActiveSocket-close now gets a string, not an embedded exn

---
 tcp.prs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tcp.prs b/tcp.prs
index 952c4f3..d41eaed 100644
--- a/tcp.prs
+++ b/tcp.prs
@@ -9,7 +9,7 @@ TcpInbound = <inbound @host string @port int>.
 
 ActiveSocket =
   / <controller @controller #!Sink>
-  / <close @reason any>
+  / <close @message string>
   / Socket
 .