onInit :: JSInit -> (Element -> JSObject -> UI void) -> (Element -> UI (B (Maybe JSObject)),Element -> Maybe JSObject -> UI ())
onInit js f =
  ( pure $ return $ initB js
  , \e mo -> case mo of
    Just o -> void $ f e o
    _      -> return ()
  )
onInit :: JSInit -> (Element -> JSObject -> UI void) -> (Element -> UI (B (Maybe JSObject)),Element -> Maybe JSObject -> UI ())
onInit js f =
  ( pure $ return $ initB js
  , \e mo -> case mo of
    Just o -> void $ f e o
    _      -> return ()
  )
onInit js f =
  ( pure $ return $ initB js
  , \e mo -> case mo of
    Just o -> void $ f e o
    _      -> return ()
  )