Remove duplicate headers

digitallyinduced · Sep 1, 2023 · ee1ab07 · ee1ab07
1 parent e592b25
commit ee1ab07
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/IHP/DBEvent.hs b/IHP/DBEvent.hs
@@ -36,12 +36,6 @@ respondDbEvent eventName  = do
     touchedTables <- Set.toList <$> readIORef ?touchedTables
     putStrLn $ "Registering notification trigger for tables: " <> show touchedTables
 
-    let headers = 
-                 [ ("Cache-Control", "no-store")
-                 , ("Connection", "keep-alive")
-                 , (hContentType, "text/event-stream")
-                 ]
-
     let streamBody sendChunk flush = do
                     sendChunk (ByteString.stringUtf8 "data: Connection established!\n\n") >> flush