scheduleRootClear :: IORef (DMap k) -> EventM ()
scheduleRootClear r = EventM $ do
  clears <- asks eventEnvRootClears
  liftIO $ modifyIORef' clears (SomeDMapIORef r :)
scheduleRootClear :: IORef (DMap k) -> EventM ()
scheduleRootClear r = EventM $ do
  clears <- asks eventEnvRootClears
  liftIO $ modifyIORef' clears (SomeDMapIORef r :)
scheduleRootClear r = EventM $ do
  clears <- asks eventEnvRootClears
  liftIO $ modifyIORef' clears (SomeDMapIORef r :)