@@ -363,10 +363,10 @@ instance SupportsImmediateDomBuilder t m => DomBuilder t (ImmediateDomBuilderT t
363363 Input.getChecked domInputElement
364364 checkedChangedBySetChecked <- performEvent $ ffor (_inputElementConfig_setChecked cfg) $ \newChecked -> do
365365 oldChecked <- Input.getChecked domInputElement
366− if newChecked /= oldChecked
367− then do Input.setChecked domInputElement newChecked
368− return $ Just newChecked
369− else return Nothing
366+ Input.setChecked domInputElement newChecked
367+ return $ if newChecked /= oldChecked
368+ then Just newChecked
369+ else Nothing
370370 c <- holdDyn (_inputElementConfig_initialChecked cfg) $ leftmost
371371 [ fmapMaybe id checkedChangedBySetChecked
372372 , checkedChangedByUI