git.iko.soy/patch
on develop help sign in
Fix a use of _1 that fails to typecheck on 7.10 for some reason
376c095Ryan Trinkle
src/Reflex/Spider/Internal.hs+1−1
compare with develop
unifiedsplit
@@ -766,7 +766,7 @@ getMergeSubscribed m = {-# SCC "getMergeSubscribed.entire" #-} do
766 , mergeSubscribedAccum = accumRef
766 , mergeSubscribedAccum = accumRef
767 , mergeSubscribedHeight = heightRef
767 , mergeSubscribedHeight = heightRef
768 , mergeSubscribedSubscribers = subsRef
768 , mergeSubscribedSubscribers = subsRef
769− , mergeSubscribedSelf = unsafeCoerce $ map (^._1) subscribers --TODO: Does lack of strictness make this leak?
769+ , mergeSubscribedSelf = unsafeCoerce $ map (\(x, _, _, _) -> x) subscribers --TODO: Does lack of strictness make this leak?
770 , mergeSubscribedParents = DMap.fromDistinctAscList $ map (^._4) subscribers
770 , mergeSubscribedParents = DMap.fromDistinctAscList $ map (^._4) subscribers
771 }
771 }
772 liftIO $ writeIORef subscribedRef subscribed
772 liftIO $ writeIORef subscribedRef subscribed