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