haskell - 仆人服务器发送事件支持

Question

如何为服务方定义服务器发送事件 (SSE) 端点。文档似乎没有涵盖这种情况。

如果 Servant 不是为实时用例设计的，哪个 Haskell 服务器框架支持 SSE？

Answer 1

servant使用 WAI , 你可以随时进入正常的 WAI Raw 为它存在的应用程序和所有库组合器。所以你可以使用 Network.Wai.EventSource 来自 wai-extra创建 Application ，这是 Raw 的处理程序类型端点。就像是:

type MyApi = "normalapi" :> NormalApi 
        :<|> "sse" :> Raw

myServer :: Server MyAPI
myServer = normalServer :<|> eventSourceAppChan myChan