@@ -1615,7 +1615,7 @@ subscribeFanSubscribed k subscribed sub = do
16151615 let !self = (k, subscribed)
16161616 weakSelf <- newIORef =<< mkWeakPtrWithDebug self "FanSubscribed"
16171617 (list, sln) <- WeakBag.singleton sub weakSelf cleanupFanSubscribed
1618− writeIORef (fanSubscribedSubscribers subscribed) $! DMap.insertWith (error "subscribeEventSubscribed: key that we just failed to find is present - should be impossible") k (FanSubscribedChildren list self weakSelf) subscribers
1618+ writeIORef (fanSubscribedSubscribers subscribed) $! DMap.insertWith (error "subscribeFanSubscribed: key that we just failed to find is present - should be impossible") k (FanSubscribedChildren list self weakSelf) subscribers
16191619 return sln
16201620 Just (FanSubscribedChildren list _ weakSelf) -> {-# SCC "hitSubscribeFanSubscribed" #-} WeakBag.insert sub list weakSelf cleanupFanSubscribed
16211621