@@ -1354,7 +1354,7 @@ getRootSubscribed k r sub = do
1354 when debugPropagate $ putStrLn $ "getRootSubscribed: calling rootInit"
1354 when debugPropagate $ putStrLn $ "getRootSubscribed: calling rootInit"
1355 uninit <- rootInit r k $ RootTrigger (subs, rootOccurrence r, k)
1355 uninit <- rootInit r k $ RootTrigger (subs, rootOccurrence r, k)
1356 writeIORef uninitRef $! uninit
1356 writeIORef uninitRef $! uninit
1357− let subscribed = RootSubscribed
1357+ let !subscribed = RootSubscribed
1358 { rootSubscribedKey = k
1358 { rootSubscribedKey = k
1359 , rootSubscribedCachedSubscribed = cached
1359 , rootSubscribedCachedSubscribed = cached
1360 , rootSubscribedOccurrence = getOcc
1360 , rootSubscribedOccurrence = getOcc