@@ -1354,7 +1354,7 @@ getRootSubscribed k r sub = do
13541354 when debugPropagate $ putStrLn $ "getRootSubscribed: calling rootInit"
13551355 uninit <- rootInit r k $ RootTrigger (subs, rootOccurrence r, k)
13561356 writeIORef uninitRef $! uninit
1357− let subscribed = RootSubscribed
1357+ let !subscribed = RootSubscribed
13581358 { rootSubscribedKey = k
13591359 , rootSubscribedCachedSubscribed = cached
13601360 , rootSubscribedOccurrence = getOcc