@@ -382,7 +382,7 @@ showEventType = \case
382 EventCoincidence _ -> "EventCoincidence"
382 EventCoincidence _ -> "EventCoincidence"
384data EventSubscribed a
384data EventSubscribed a
385− = EventSubscribedRoot !(RootSubscribed a)
385+ = EventSubscribedRoot {-# NOUNPACK #-} (RootSubscribed a)
386 | EventSubscribedNever
386 | EventSubscribedNever
387 | forall b. EventSubscribedPush !(PushSubscribed b a)
387 | forall b. EventSubscribedPush !(PushSubscribed b a)
388 | forall k. (GCompare k, a ~ DMap k) => EventSubscribedMerge !(MergeSubscribed k)
388 | forall k. (GCompare k, a ~ DMap k) => EventSubscribedMerge !(MergeSubscribed k)