C bm children = do
  (e,_) ← elAttr' "a" (A.attrMap bm) children
  return $ domEvent Click e
aCD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t A → m () → m (Event t ())
aC ∷ (DomBuilder t m, PostBuild t m) ⇒ A → m () → m (Event t ())
aC bm children = do
  (e,_) ← elAttr' "a" (A.attrMap bm) children
  return $ domEvent Click e
aC bm children = do
  (e,_) ← elAttr' "a" (A.attrMap bm) children
  return $ domEvent Click e