2

我在搞乱 WebSockets，我写了一个“回显服务器”，我希望它在运行时记录到控制台：

echo = Warp.run 3000 app
  where
    app = WS.websocketsOr 
      WS.defaultConnectionOptions
      wsApp
      httpApp

    httpApp _ respond = do
      put "HTTP Request Recieved"
      respond $ Wai.responseFile 
        Http.status200
        []
        "web/index.html"
        Nothing

wsApp :: WS.ServerApp
wsApp pendingConn = do
  conn <- WS.acceptRequest pendingConn
  WS.forkPingThread conn 30
  put "WebSocket Connection Open"
  listen conn

listen :: WS.Connection -> IO ()
listen conn = forever $ do
  str <- WS.receiveData conn :: (IO Text.Text)
  put $ Text.unpack str
  WS.sendTextData conn str

main :: IO ()
main = do
  put "Echo WebSocket Running ..."
  echo

put str = hPutStrLn stdout str >> hFlush stdout

如您所见，我尝试过冲洗stdout但没有成功。我明白了

$ ./echoServer
Echo WebSocket Running ...

但仅此而已。即使我可以在浏览器中成功加载“web/index.html”并成功建立到 WebSocket 的连接并使用它，我也没有从控制台得到任何反馈。

我需要做什么才能将输出输出到控制台？

库版本：

4

1 回答 1

2

上面的代码确实有效，但当什么都没发生时就不行了！这个问题是一个令人讨厌的缓存失效错误的结果，而不是我的代码中的错误。

我首先编写了客户端（强烈推荐使用Elm）并硬编码 websocket 以指向，wss://echo.websocket.org以便我可以测试前端。然后我让后端为我提供 Elm 创建的文件（但仍指向wss://echo.websocket.org）。意识到我的错误，我将 elm 脚本更改为指向 localhost 并在后端添加了一些日志记录，如上所示。

然后我重新启动服务器并将浏览器指向 localhost:3000。浏览器加载了仍然指向的缓存副本（无 HTTP 请求）wss://echo.websocket.org（无 websocket 请求）。

看起来前端正在工作，但后端没有记录。事实上，根本没有请求进入后端。

我今天晚上回来，开始弄乱我的代码，看看我是否能让一切正常工作，第一次运行服务器时，一切（几乎）工作正常，但我没有做出任何有效的改变，只是添加了一些新的“包含”线。缓存已过期。最大的提示是除了 HTTP 请求之外的所有内容都正确记录。“现在为什么那个请求会有所不同？” 我问自己。然后我突然想到，缓存正在进行，陈旧的缓存可以解释我今天早上看到的一切。

除了因为没有早点意识到这一点而感到有点羞辱之外，现在一切正常。

计算机科学中只有两个难点：缓存失效和命名。——菲尔·卡尔顿

于 2017-09-07T00:21:14.323 回答