d59bfbc · reflex · git.iko.soy

279newSubscriberHold :: R.Patch p => Hold x p a -> IO (Subscriber x (p a))

280newSubscriberHold h = return $ Subscriber

281 { subscriberPropagate = {-# SCC "traverseHold" #-} propagateSubscriberHold h

282− , subscriberInvalidateHeight = \old -> return ()

282+ , subscriberInvalidateHeight = \_ -> return ()

283− , subscriberRecalculateHeight = \new -> return ()

283+ , subscriberRecalculateHeight = \_ -> return ()

284 }

285

286newSubscriberMerge :: GCompare k => k a -> MergeSubscribed x k -> IO (Subscriber x a)

321 { subscriberPropagate = \a -> {-# SCC "traverseMergeChange" #-} do

322 tracePropagate $ "SubscriberMerge" <> showNodeId subscribed

323 defer $ SomeMergeUpdate a subscribed

324− , subscriberInvalidateHeight = \old -> return ()

324+ , subscriberInvalidateHeight = \_ -> return ()

325− , subscriberRecalculateHeight = \new -> return ()

325+ , subscriberRecalculateHeight = \_ -> return ()

326 }

327

328newSubscriberFan :: GCompare k => FanSubscribed x k -> IO (Subscriber x (DMap k Identity))

357 liftIO $ writeIORef (switchSubscribedOccurrence subscribed) $ Just a

358 scheduleClear $ switchSubscribedOccurrence subscribed

359 propagate a $ switchSubscribedSubscribers subscribed

360− , subscriberInvalidateHeight = \old -> do

360+ , subscriberInvalidateHeight = \_ -> do

361 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberSwitch" <> showNodeId subscribed

362 oldHeight <- readIORef $ switchSubscribedHeight subscribed

363 when (oldHeight /= invalidHeight) $ do

391 liftIO $ writeIORef (coincidenceSubscribedOccurrence subscribed) occ

392 scheduleClear $ coincidenceSubscribedOccurrence subscribed

393 propagate o $ coincidenceSubscribedSubscribers subscribed

394− , subscriberInvalidateHeight = \old -> do

394+ , subscriberInvalidateHeight = \_ -> do

395 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberCoincidenceOuter" <> showNodeId subscribed

396 invalidateCoincidenceHeight subscribed

397 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberCoincidenceOuter" <> showNodeId subscribed <> " done"

398− , subscriberRecalculateHeight = \new -> do

398+ , subscriberRecalculateHeight = \_ -> do

399 when debugInvalidateHeight $ putStrLn $ "recalculateSubscriberHeight: SubscriberCoincidenceOuter" <> showNodeId subscribed

400 recalculateCoincidenceHeight subscribed

401 when debugInvalidateHeight $ putStrLn $ "recalculateSubscriberHeight: SubscriberCoincidenceOuter" <> showNodeId subscribed <> " done"

412 liftIO $ writeIORef (coincidenceSubscribedOccurrence subscribed) $ Just a

413 scheduleClear $ coincidenceSubscribedOccurrence subscribed

414 propagate a $ coincidenceSubscribedSubscribers subscribed

415− , subscriberInvalidateHeight = \old -> do

415+ , subscriberInvalidateHeight = \_ -> do

416 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberCoincidenceInner" <> showNodeId subscribed

417 invalidateCoincidenceHeight subscribed

418 when debugInvalidateHeight $ putStrLn $ "invalidateSubscriberHeight: SubscriberCoincidenceInner" <> showNodeId subscribed <> " done"

419− , subscriberRecalculateHeight = \new -> do

419+ , subscriberRecalculateHeight = \_ -> do

420 when debugInvalidateHeight $ putStrLn $ "recalculateSubscriberHeight: SubscriberCoincidenceInner" <> showNodeId subscribed

421 recalculateCoincidenceHeight subscribed

422 when debugInvalidateHeight $ putStrLn $ "recalculateSubscriberHeight: SubscriberCoincidenceInner" <> showNodeId subscribed <> " done"