From c21290e265062d06c8068db81c160e3bacae7e8d Mon Sep 17 00:00:00 2001 From: kodeFant Date: Fri, 1 Sep 2023 21:07:58 +0200 Subject: [PATCH] Add some documentation --- IHP/DBEvent.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/IHP/DBEvent.hs b/IHP/DBEvent.hs index 8f4fe8518..db1ff8c9d 100644 --- a/IHP/DBEvent.hs +++ b/IHP/DBEvent.hs @@ -47,9 +47,12 @@ respondDbEvent eventName = do sqlExec createTriggerSql () pure () + pgListener |> PGListener.subscribe (channelName table) \notification -> do let pid = notification.notificationPid |> show |> cs sendChunk (ByteString.stringUtf8 $ + -- Follows the SSE message spec defined on MDN + -- https://developer.mozilla.org/en-US/docs/Web/API/Server-sent_events/Using_server-sent_events#event_stream_format "id:" <> pid <> "\n" <> "event:" <> cs eventName <> "\n" <> "data: " <> cs table <> " change event triggered\n\n")