vent t ())
labelC bm children = do
  (e,_) ← elAttr' "label" (A.attrMap bm) children
  return $ domEvent Click e

labelCD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Label → m () → m (Event t ())
labelCD bDyn children = do
  (e,_) ← elDynAttr' "la
labelD' ∷ forall t m a. (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Label → m a → m (Element EventResult (DomBuilderSpace m) t, a)
labelD' bm  = elDynAttr' "label" (A.attrMap <$> bm)
labelD' bm  = elDynAttr' "label" (A.attrMap <$> bm)