@@ -258,15 +258,8 @@ main = hspec $ parallel $ do
258258 readIORef checkedRef >>= flip shouldBe False
259259 testWidget (pure ()) checkValue $ do
260260 (setChecked, triggerSetChecked) <- newTriggerEvent
261− liftIO $ triggerSetChecked False
262− liftIO $ forkIO $ forever $ do
263− liftIO $ putStrLn "before"
261+ prerender (pure ()) $ liftIO $ void $ forkIO $ forever $ do
264262 triggerSetChecked =<< readChan setCheckedChan
265− liftIO $ putStrLn "after"
266− performEvent_ $ ffor setChecked $ \c -> do
267− liftIO $ do
268− putStrLn "---------------setChecked"
269− print c
270263 e <- inputElement $ def
271264 & initialAttributes .~ "type" =: "checkbox"
272265 & inputElementConfig_setChecked .~ setChecked
@@ -296,7 +289,6 @@ main = hspec $ parallel $ do
296289 it "works inside other element" $ do
297290 testWidget (checkTextInTag "div" "One") (checkTextInTag "div" "Two") $ do
298291 el "div" $ prerender (text "One") (text "Two")
299−
300292 it "places fences and removes them" $ do
301293 testWidget'
302294 (do
@@ -335,7 +327,7 @@ checkTextInId i expected = do
335327divId :: DomBuilder t m => Text -> m a -> m a
336328divId i = elAttr "div" ("id" =: i)
337329
338−type TestWidget js t m = (DomBuilder t m, PostBuild t m, Prerender js m, PerformEvent t m, TriggerEvent t m, MonadIO (Performable m), MonadFix m, MonadIO m)
330+type TestWidget js t m = (DomBuilder t m, MonadHold t m, PostBuild t m, Prerender js m, PerformEvent t m, TriggerEvent t m, MonadIO (Performable m), MonadFix m, MonadIO m)
339331
340332testWidgetStatic
341333 :: WD b