. (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)

-- | 
select ∷ forall t m a. DomBuilder t m ⇒ Select → m a → m a
select bm children = snd <$> select' bm children
select bm children = snd <$> select' bm children