例外：连接：在Haskell中尝试连接TCP套接字时不存在（连接被拒绝）

Question

上下文

我关注tutorial on writing a TCP server last week in Real World Haskell。一切顺利，我的最终版本工作，并能够在TCP客户端和服务器之间发送消息。

然后，我想为我编写的小型TicTacToe游戏编写自己的TCP服务器。我开始编写服务器和客户端并且稍微玩了一下，它到目前为止服务器能够接受连接，但是还没有真正的交互。

现在它有点尴尬，因为在我关闭Mac并尝试重新启动它之后，它将无法启动。我整个星期五都在为单用户模式进行备份并重新安装Mac OS。成功重新安装后，我的所有数据仍然存在，所以我毕竟不需要备份。

无论如何，今天我回到了我的TicTacToe服务器，但它不再起作用了。或者，至少客户端无法再连接到它。

TL; DR

我为受tutorial in Real World Haskell启发的TicTacToe游戏编写了一个TCP服务器，但在尝试连接服务器时遇到*** Exception: connect: does not exist (Connection refused)错误。使用上述教程中的vanilla代码也是如此。

请注意，我仍然可以使用telnet连接到服务器。我很确定问题不是代码而是系统级别，因为在我遇到机器故障之前相同的代码工作（见上文）并且我仍在使用RWH教程中相同的代码。