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
commit59858c4da69f4cac6a73150917b03ebadf3aee32 authorElliot Cameron <eacameron@gmail.com> dateMon 22 Jul 2019, 21:01 (7 years ago) parentadeee9d
1 file changed+2−2
reflex-dom-core/src/Reflex/Dom/Prerender.hs+2−2
reflex-dom-core/src/Reflex/Dom/Prerender.hs+2−2
@@ -270,8 +270,8 @@ instance (Prerender js t m, MonadFix m, Reflex t) => Prerender js t (RequesterT
270270 (x, e) <- runRequesterT w (selectInt fannedResponses selector)
271271 pure (x, fmapCheap (IntMap.singleton selector) e)
272272 (result, requestsDyn) <- fmap splitDynPure $ lift $ prerender (withFannedResponses server 0) (withFannedResponses client 1)
273− responses <- fmap (fmapCheap unMultiEntry) $ requesting' $ fmapCheap multiEntry $ switch $ current requestsDyn
274− pure result
273+ responses <- fmap (fmapCheap unMultiEntry) $ requesting' $ fmapCheap multiEntry $ switchPromptlyDyn requestsDyn
274+ return result
275275
276276instance (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
277277 type Client (QueryT t q m) = QueryT t q (Client m)