fix: deduplicate SSE events and debounce client reload

2026-05-20 11:54:06 -04:00
parent 71cef21daf
commit 795a99ae2b
2 changed files with 25 additions and 3 deletions
@@ -115,7 +115,18 @@ sseHandler changeLog _request respond = do
                    sent <- readIORef lastSent
                    when (version > sent) $ do
                        let newEntries = takeWhile (\(v, _) -> v > sent) entries
-                        forM_ newEntries $ \(_v, path) -> do
+                        -- Entries are newest-first. Deduplicate by filename,
+                        -- keeping the newest (first encountered) entry per file.
+                        let deduped =
+                                foldl'
+                                    ( \acc e@(_, p) ->
+                                        if any ((== p) . snd) acc
+                                            then acc
+                                            else e : acc
+                                    )
+                                    []
+                                    newEntries
+                        forM_ deduped $ \(_v, path) -> do
                            write
                                ( lazyByteString $
                                    LB.fromStrict $