 () → m (Event t ())
inputCD bDyn children = do
  (e,_) ← elDynAttr' "input" (A.attrMap <$> bDyn) children
  return $ domEvent Click e



------------------------------------------------------------
inputD ∷ forall t m a. (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Input → m a → m a
inputD bm children = snd <$> inputD' bm children
inputD bm children = snd <$> inputD' bm children