@@ -94,7 +94,6 @@ instance (ReflexHost t, PrimMonad (HostFrame t)) => Adjustable t (PerformEventT
94
94
(result0, requests0) <- lift $ runA a0
95
95
newA <- requestingIdentity $ runA <$> a'
96
96
requests <- switchHoldPromptOnly requests0 $ fmapCheap snd newA
97
- -- TODO: promptly *prevent* events, then sign up the new ones; this is a serious breaking change to PerformEvent
98
97
RequesterInternalT $ tellEvent requests
99
98
pure (result0, fmapCheap fst newA)
100
99
{-# INLINE traverseIntMapWithKeyWithAdjust #-}
@@ -109,7 +108,6 @@ instance (ReflexHost t, PrimMonad (HostFrame t)) => Adjustable t (PerformEventT
109
108
results' = fmap fst <$> children'
110
109
requests' = fmap snd `fmapCheap` children'
111
110
requests <- switchHoldPromptOnlyIncremental mergeIntIncremental coincidencePatchIntMap requests0 requests'
112
- -- TODO: promptly *prevent* events, then sign up the new ones; this is a serious breaking change to PerformEvent
113
111
RequesterInternalT $ tellEvent $ fforMaybeCheap requests concatIntMapMaybe
114
112
pure (results0, results')
115
113
{-# INLINE traverseDMapWithKeyWithAdjust #-}
@@ -125,7 +123,6 @@ instance (ReflexHost t, PrimMonad (HostFrame t)) => Adjustable t (PerformEventT
125
123
results' = mapPatchDMap (snd . getCompose) <$> children'
126
124
requests' = weakenPatchDMapWith (fst . getCompose) `fmapCheap` children'
127
125
requests <- switchHoldPromptOnlyIncremental mergeMapIncremental coincidencePatchMap requests0 requests'
128
- -- TODO: promptly *prevent* events, then sign up the new ones; this is a serious breaking change to PerformEvent
129
126
RequesterInternalT $ tellEvent $ fforMaybeCheap requests concatMapMaybe
130
127
pure (results0, results')
131
128
{-# INLINE traverseDMapWithKeyWithAdjustWithMove #-}
@@ -141,7 +138,6 @@ instance (ReflexHost t, PrimMonad (HostFrame t)) => Adjustable t (PerformEventT
141
138
results' = mapPatchDMapWithMove (snd . getCompose) <$> children'
142
139
requests' = weakenPatchDMapWithMoveWith (fst . getCompose) `fmapCheap` children'
143
140
requests <- switchHoldPromptOnlyIncremental mergeMapIncrementalWithMove coincidencePatchMapWithMove requests0 requests'
144
- -- TODO: promptly *prevent* events, then sign up the new ones; this is a serious breaking change to PerformEvent
145
141
RequesterInternalT $ tellEvent $ fforMaybeCheap requests concatMapMaybe
146
142
pure (results0, results')
147
143
0 commit comments