@@ -320,7 +320,7 @@ cacheEvent e =
320320 <- newIORef emptyFastWeak
321321 pure $ \sub -> {-# SCC "cacheEvent" #-} do
322322#ifdef DEBUG_TRACE_EVENTS
323− unless (BS8.null callSite) $ liftIO $ BS8.hPutStrLn stderr callSite
323+ unless (BS8.null callSite) $ liftIO $ BS8.appendFile "out.log" callSite
324324#endif
325325 subscribedTicket <- liftIO (readIORef mSubscribedRef >>= getFastWeakTicket) >>= \case
326326 Just subscribedTicket -> return subscribedTicket