git.iko.soy/reflex-dom
on develop help sign in
Fix prerender for RequesterT so that it doesn't accidentally discard a request that is made at the same moment as getPostBuild's Event fires
59858c4Elliot Cameron
reflex-dom-core/src/Reflex/Dom/Prerender.hs+2−2
compare with develop
unifiedsplit
@@ -270,8 +270,8 @@ instance (Prerender js t m, MonadFix m, Reflex t) => Prerender js t (RequesterT
270 (x, e) <- runRequesterT w (selectInt fannedResponses selector)
270 (x, e) <- runRequesterT w (selectInt fannedResponses selector)
271 pure (x, fmapCheap (IntMap.singleton selector) e)
271 pure (x, fmapCheap (IntMap.singleton selector) e)
272 (result, requestsDyn) <- fmap splitDynPure $ lift $ prerender (withFannedResponses server 0) (withFannedResponses client 1)
272 (result, requestsDyn) <- fmap splitDynPure $ lift $ prerender (withFannedResponses server 0) (withFannedResponses client 1)
273− responses <- fmap (fmapCheap unMultiEntry) $ requesting' $ fmapCheap multiEntry $ switch $ current requestsDyn
273+ responses <- fmap (fmapCheap unMultiEntry) $ requesting' $ fmapCheap multiEntry $ switchPromptlyDyn requestsDyn
274− pure result
274+ return result
275
275
276instance (Prerender js t m, Monad m, Reflex t, MonadFix m, Group q, Additive q, Query q, Eq q) => Prerender js t (QueryT t q m) where
276instance (Prerender js t m, Monad m, Reflex t, MonadFix m, Group q, Additive q, Query q, Eq q) => Prerender js t (QueryT t q m) where
277 type Client (QueryT t q m) = QueryT t q (Client m)
277 type Client (QueryT t q m) = QueryT t q (Client m)