我想将以下JavaScript代码移植到Haskell:http://jsfiddle.net/mz68R/这是我尝试过的:importControl.ConcurrentimportData.IOReftypeEventStreama=IORef[MVara]newEventStream::IO(EventStreama)newEventStream=newIORef[]setEvent::EventStreama->a->IO()setEventstreamevent=readIORefstream>>=mapM_(`putMVar`event)getEvent::EventStr

目前我有提供SSE作为服务的程序，我必须在IIS上部署。但它不能正常工作，这是我在没有IIS的情况下运行.exe时的结果。data:Hello,world但是当它在IIS后面运行时，浏览器卡在加载中。我必须刷新事件Hello,world数千次才能使IIS刷新结果到浏览器，它会立即刷新，而不是像SSE过去那样进行增量更新。这是我的web.config这是我的go代码funcSSEHello(rwhttp.ResponseWriter,flusherhttp.Flusher){rw.Header().Set("Content-Type","text/event-stream;charset

获取第三方接口的EventStream返回给前端最近项目有个需求，获取第三方gpt接口提供的AI聊天服务，回显给前端，其实就是http请求第三方接口并拿到EventStream流，推送给前端。试了下RestTemplate，不太理想，于是使用WebFlux，直接上核心代码：后端：privatestaticSseEmittersendEventStreamPost(Stringurl,StringjsonData){SseEmitteremitter=newSseEmitter();Mono.fromCallable(()->{WebClient.create(url).post().conte