diff --git a/backends/pardiff/Shpadoinkle/Backend/ParDiff.hs b/backends/pardiff/Shpadoinkle/Backend/ParDiff.hs
index 3587cb0fa42a91e96cd2c858dba0fb17b1c14175..bf97526227476ef74adda2c375dd3a13a9023d2f 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