From 5ea5e2fd036a194b91e704adc4ffa9dc95d5565d Mon Sep 17 00:00:00 2001 From: Morgan Thomas Date: Thu, 29 Apr 2021 09:40:39 -0400 Subject: [PATCH] bugfix pardiff --- backends/pardiff/Shpadoinkle/Backend/ParDiff.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/backends/pardiff/Shpadoinkle/Backend/ParDiff.hs b/backends/pardiff/Shpadoinkle/Backend/ParDiff.hs index 3587cb0f..bf975262 100644 --- a/backends/pardiff/Shpadoinkle/Backend/ParDiff.hs +++ b/backends/pardiff/Shpadoinkle/Backend/ParDiff.hs @@ -180,7 +180,7 @@ setProptado :: forall a. NFData a => TVar a -> (RawNode -> JSM (STM (Continuatio setProptado i f o = do elm <- RawNode <$> toJSVal o stm <- f elm - let go = atomically stm >>= writeUpdate i >> go + let go = atomically stm >>= writeUpdate i void $ forkIO go @@ -391,7 +391,7 @@ interpret' toJSM (Html h') = h' mkNode mkPotato mkText mkPotato :: JSM (RawNode, STM (Continuation (ParDiffT a m) a)) -> ParDiffT a m (ParVNode a) mkPotato mrn = ask >>= \i -> liftJSM $ do (rn, stm) <- mrn - let go = atomically stm >>= writeUpdate i . hoist (toJSM . runParDiff i) >> go + let go = atomically stm >>= writeUpdate i . hoist (toJSM . runParDiff i) void $ forkIO go fmap ParPotato $ newOnce $ pure rn -- GitLab