@@ -448,7 +448,11 @@ dropdown k0 options (DropdownConfig setK attrs) = do
448 elDynAttr "option" optionAttrs $ dynText v
448 elDynAttr "option" optionAttrs $ dynText v
449 let e = castToHTMLSelectElement $ _element_raw eRaw
449 let e = castToHTMLSelectElement $ _element_raw eRaw
450 performEvent_ $ fmap (HTMLSelectElement.setValue e . Just . show) $ attachDynWithMaybe (flip Bimap.lookupR) ixKeys setK
450 performEvent_ $ fmap (HTMLSelectElement.setValue e . Just . show) $ attachDynWithMaybe (flip Bimap.lookupR) ixKeys setK
451+ let lookupSelected ks value = do
453+ key <- T.readMaybe v
451− eChange <- attachDynWith (\ks s -> join $ Bimap.lookup <$> join (T.readMaybe <$> s) <*> pure ks) ixKeys <$> (wrapDomEvent e (`on` Element.change) $ HTMLSelectElement.getValue e)
455+ eChange <- attachDynWith lookupSelected ixKeys <$> (wrapDomEvent e (`on` Element.change) $ HTMLSelectElement.getValue e)
452 let readKey keys mk = fromMaybe k0 $ do
456 let readKey keys mk = fromMaybe k0 $ do
454 guard $ Bimap.memberR k keys
458 guard $ Bimap.memberR k keys