@@ -211,7 +211,7 @@ data CacheSubscribed x a
211--subscriber joins
211--subscriber joins
212{-# INLINABLE cacheEvent #-}
212{-# INLINABLE cacheEvent #-}
213cacheEvent :: Event x a -> Event x a
213cacheEvent :: Event x a -> Event x a
214−cacheEvent e = Event $ \sub -> do
214+cacheEvent e = Event $ \sub -> {-# SCC "cacheEvent" #-} do
215 let !mSubscribedRef = unsafeNewIORef e Nothing
215 let !mSubscribedRef = unsafeNewIORef e Nothing
216 mSubscribed <- liftIO $ readIORef mSubscribedRef
216 mSubscribed <- liftIO $ readIORef mSubscribedRef
217 case mSubscribed of
217 case mSubscribed of