Add SCC for cacheEvent
commitef4a81f8d3a545fbe71b3cbcb1ed43c7ce6c21a0
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateThu 6 Oct 2016, 16:55 (10 years ago)
parent1cec4f6
src/Reflex/Spider/Internal.hs+1−1
@@ -211,7 +211,7 @@ data CacheSubscribed x a
211211--subscriber joins
212212{-# INLINABLE cacheEvent #-}
213213cacheEvent :: Event x a -> Event x a
214−cacheEvent e = Event $ \sub -> do
214+cacheEvent e = Event $ \sub -> {-# SCC "cacheEvent" #-} do
215215 let !mSubscribedRef = unsafeNewIORef e Nothing
216216 mSubscribed <- liftIO $ readIORef mSubscribedRef
217217 case mSubscribed of