@@ -1153,32 +1153,6 @@ getDynHold d = do
1153 liftIO $ writeIORef (unDyn d) $ Right h
1153 liftIO $ writeIORef (unDyn d) $ Right h
1154 return h
1154 return h
1157−readEvent :: Event a -> ResultM (Maybe a)
1158−readEvent e = case e of
1159− EventRoot k r -> liftIO . fmap (coerce . DMap.lookup k) . readIORef $ rootOccurrence r
1160− EventNever -> return Nothing
1162− subscribed <- getPushSubscribed p
1163− liftIO $ readPushSubscribed subscribed
1165− subscribed <- getMergeSubscribed m
1166− liftIO $ readMergeSubscribed subscribed
1168− subscribed <- getFanSubscribed f
1169− liftIO $ readFanSubscribed k subscribed
1170− EventSwitch s -> do
1171− subscribed <- getSwitchSubscribed s
1172− liftIO $ readSwitchSubscribed subscribed
1173− EventCoincidence c -> do
1174− subscribed <- getCoincidenceSubscribed c
1175− liftIO $ readCoincidenceSubscribed subscribed
1176− EventHold h -> liftIO . readEventSubscribed =<< getHoldEventSubscription h
1177− EventDyn d -> liftIO . readEventSubscribed =<< getHoldEventSubscription =<< getDynHold d
1178− EventHoldIdentity h -> liftIO . readEventSubscribed =<< getHoldEventSubscription h
1179− EventDynIdentity d -> liftIO . readEventSubscribed =<< getHoldEventSubscription =<< getDynHold d
1182readEventSubscribed :: EventSubscribed a -> IO (Maybe a)
1156readEventSubscribed :: EventSubscribed a -> IO (Maybe a)
1183readEventSubscribed = \case
1157readEventSubscribed = \case
1184 EventSubscribedRoot rs -> readRootSubscribed rs
1158 EventSubscribedRoot rs -> readRootSubscribed rs