@@ -652,7 +652,7 @@ testCloseTransport newTransport = do
652 ConnectionClosed cid1' <- receive endpoint ; True <- return $ cid1' == cid1
652 ConnectionClosed cid1' <- receive endpoint ; True <- return $ cid1' == cid1
654 -- An attempt to send to the endpoint should now fail
654 -- An attempt to send to the endpoint should now fail
655− Left (TransportError SendFailed _) <- send conn ["pong2"]
655+ Left (TransportError SendClosed _) <- send conn ["pong2"]
657 putMVar serverDone ()
657 putMVar serverDone ()
@@ -687,7 +687,7 @@ testCloseTransport newTransport = do
687 EndPointClosed <- receive endpoint2
687 EndPointClosed <- receive endpoint2
689 -- Attempt to send should fail with connection closed
689 -- Attempt to send should fail with connection closed
690− Left (TransportError SendFailed _) <- send conn ["ping2"]
690+ Left (TransportError SendClosed _) <- send conn ["ping2"]
692 -- An attempt to close the already closed connection should just return
692 -- An attempt to close the already closed connection should just return
693 () <- close conn
693 () <- close conn