Make sure set event properly updates dropdownDynAttr's value
commit5efef2a3fe9737a46dc8510f36a048c2f72c411b
authorali abrar <aliabrar@gmail.com>
dateThu 5 Mar 2015, 15:22 (12 years ago)
parent2636344
src/Reflex/Dom/Widget/Input.hs+1−1
@@ -237,7 +237,7 @@ dropdownDynAttr attrs k0 setK options = do
237237 k <- mk
238238 guard $ Map.member k opts
239239 return k
240− dValue <- combineDyn readKey options =<< holdDyn (Just k0) eChange
240+ dValue <- combineDyn readKey options =<< holdDyn (Just k0) (leftmost [eChange, fmap Just setK])
241241 return $ Dropdown dValue
242242
243243dropdown :: forall k t m. (MonadWidget t m, Ord k, Show k, Read k) => k -> Dynamic t (Map k String) -> m (Dropdown t k)