@@ -1153,32 +1153,6 @@ getDynHold d = do
11531153 liftIO $ writeIORef (unDyn d) $ Right h
11541154 return h
11551155
1156−{-
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
1161− EventPush p -> do
1162− subscribed <- getPushSubscribed p
1163− liftIO $ readPushSubscribed subscribed
1164− EventMerge m -> do
1165− subscribed <- getMergeSubscribed m
1166− liftIO $ readMergeSubscribed subscribed
1167− EventFan k f -> do
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
1180−-}
1181−
11821156readEventSubscribed :: EventSubscribed a -> IO (Maybe a)
11831157readEventSubscribed = \case
11841158 EventSubscribedRoot rs -> readRootSubscribed rs