l" (A.attrMap <$> bDyn) children
  return $ domEvent Click e

labelCForId ∷  (DomBuilder t m, PostBuild t m) ⇒ Maybe A.Globals → A.ForId → m (Event t ())
labelCForId bm f = labelC (Label bm (Just f)
labelD ∷ forall t m a. (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Label → m a → m a
labelD bm children = snd <$> labelD' bm children
labelD bm children = snd <$> labelD' bm children