Use appendFile instead of hPutStrLn
This may be fast enough to still show our bug.
commitbc1a202cc10f2ac8072a3797231c9114fd687e65
authorMatthew Bauer <mjbauer95@gmail.com>
dateTue 25 Feb 2020, 10:27 (7 years ago)
parent4b04fc4
src/Reflex/Spider/Internal.hs+1−1
@@ -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