on develop help sign in
Set initial value of textInput
commitc05055fe116f02edfe78020827807efbba8f9efe authorSid Raval <sid.raval@obsidian.systems> dateMon 1 Aug 2016, 17:32 (10 years ago) parentaf26151
1 file changed+1
src/Reflex/Dom/Builder/Immediate.hs+1
src/Reflex/Dom/Builder/Immediate.hs+1
@@ -221,6 +221,7 @@ instance SupportsImmediateDomBuilder t m => DomBuilder t (ImmediateDomBuilderT t
221221 inputElement cfg = do
222222 ((e, _), domElement) <- makeElement "input" (cfg ^. inputElementConfig_elementConfig) $ return ()
223223 let domInputElement = castToHTMLInputElement domElement
224+ Input.setValue domInputElement $ Just (cfg ^. inputElementConfig_initialValue)
224225 Just v0 <- Input.getValue domInputElement
225226 let getMyValue = fromMaybe "" <$> Input.getValue domInputElement
226227 valueChangedByUI <- performEvent $ getMyValue <$ Reflex.select (_element_events e) (WrapArg Input)