on develop help sign in
Strictly evaluate RootSubscribed when constructing it

Being lazy didn't seem to hurt anything, but being strict is often necessary to ensure Weak references don't get cleaned up early.

commit20b150aa6d42c3ec9a4cfc0aab0b6eb7bc3923b9 authorRyan Trinkle <ryan.trinkle@gmail.com> dateMon 20 Feb 2017, 03:38 (10 years ago) parent399906d
1 file changed+1−1
src/Reflex/Spider/Internal.hs+1−1
src/Reflex/Spider/Internal.hs+1−1
@@ -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