git.iko.soy/reflex-dom
on develop help sign in
Make sure set event properly updates dropdownDynAttr's value
5efef2aali abrar
src/Reflex/Dom/Widget/Input.hs+1−1
compare with develop
unifiedsplit
@@ -237,7 +237,7 @@ dropdownDynAttr attrs k0 setK options = do
237 k <- mk
237 k <- mk
238 guard $ Map.member k opts
238 guard $ Map.member k opts
239 return k
239 return k
240− dValue <- combineDyn readKey options =<< holdDyn (Just k0) eChange
240+ dValue <- combineDyn readKey options =<< holdDyn (Just k0) (leftmost [eChange, fmap Just setK])
241 return $ Dropdown dValue
241 return $ Dropdown dValue
242
242
243dropdown :: forall k t m. (MonadWidget t m, Ord k, Show k, Read k) => k -> Dynamic t (Map k String) -> m (Dropdown t k)
243dropdown :: forall k t m. (MonadWidget t m, Ord k, Show k, Read k) => k -> Dynamic t (Map k String) -> m (Dropdown t k)