@@ -652,7 +652,7 @@ testCloseTransport newTransport = do
652652 ConnectionClosed cid1' <- receive endpoint ; True <- return $ cid1' == cid1
653653
654654 -- An attempt to send to the endpoint should now fail
655− Left (TransportError SendFailed _) <- send conn ["pong2"]
655+ Left (TransportError SendClosed _) <- send conn ["pong2"]
656656
657657 putMVar serverDone ()
658658
@@ -687,7 +687,7 @@ testCloseTransport newTransport = do
687687 EndPointClosed <- receive endpoint2
688688
689689 -- Attempt to send should fail with connection closed
690− Left (TransportError SendFailed _) <- send conn ["ping2"]
690+ Left (TransportError SendClosed _) <- send conn ["ping2"]
691691
692692 -- An attempt to close the already closed connection should just return
693693 () <- close conn