77e0c27 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

Fix #85

commit77e0c270f6270561d70d0b6ad925fb1ea82612a8 authorRyan Trinkle <ryan.trinkle@gmail.com> dateWed 24 Aug 2016, 09:23 (10 years ago) parent0bc7f67

1 file changed+1−1

unifiedsplit

src/Reflex/Dom/Builder/Immediate.hs+1−1

@@ -327,7 +327,7 @@ instance SupportsImmediateDomBuilder t m => DomBuilder t (ImmediateDomBuilderT t

327327 Select.setValue domSelectElement $ Just (cfg ^. selectElementConfig_initialValue)

328328 Just v0 <- Select.getValue domSelectElement

329329 let getMyValue = fromMaybe "" <$> Select.getValue domSelectElement

330− valueChangedByUI <- performEvent $ getMyValue <$ Reflex.select (_element_events e) (WrapArg Select)

330+ valueChangedByUI <- performEvent $ getMyValue <$ Reflex.select (_element_events e) (WrapArg Change)

331331 valueChangedBySetValue <- performEvent $ ffor (cfg ^. selectElementConfig_setValue) $ \v' -> do

332332 Select.setValue domSelectElement $ Just v'

333333 getMyValue -- We get the value after setting it in case the browser has mucked with it somehow