@@ -320,7 +320,7 @@ cacheEvent e =
320 <- newIORef emptyFastWeak
320 <- newIORef emptyFastWeak
321 pure $ \sub -> {-# SCC "cacheEvent" #-} do
321 pure $ \sub -> {-# SCC "cacheEvent" #-} do
322#ifdef DEBUG_TRACE_EVENTS
322#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
325 subscribedTicket <- liftIO (readIORef mSubscribedRef >>= getFastWeakTicket) >>= \case
325 subscribedTicket <- liftIO (readIORef mSubscribedRef >>= getFastWeakTicket) >>= \case
326 Just subscribedTicket -> return subscribedTicket
326 Just subscribedTicket -> return subscribedTicket