ildren
  return $ domEvent Click e

selectCD ∷ (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Select → m () → m (Event t ())
selectCD bDyn children = do
  (e,_) ← elDynAttr' "select" (A.attrMap <$> bDyn) children
  return $ domEvent Click e



-------------
selectD' ∷ forall t m a. (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Select → m a → m (Element EventResult (DomBuilderSpace m) t, a)
selectD' bm  = elDynAttr' "select" (A.attrMap <$> bm)
selectD' bm  = elDynAttr' "select" (A.attrMap <$> bm)