git.iko.soy/reflex-dom
on develop help sign in
make textArea attrs Dynamic
3a9ee6eali abrar
src/Reflex/Dom/Widget/Input.hs+1−1
compare with develop
unifiedsplit
@@ -112,7 +112,7 @@ data TextArea t
112 , _textArea_element :: HTMLTextAreaElement
112 , _textArea_element :: HTMLTextAreaElement
113 }
113 }
114
114
115−textArea :: MonadWidget t m => String -> Event t String -> Map String String -> m (TextArea t)
115+textArea :: MonadWidget t m => String -> Event t String -> Dynamic t (Map String String) -> m (TextArea t)
116textArea initial eSet attrs = do
116textArea initial eSet attrs = do
117 e <- liftM castToHTMLTextAreaElement $ buildEmptyElement "textarea" attrs
117 e <- liftM castToHTMLTextAreaElement $ buildEmptyElement "textarea" attrs
118 ev <- wrapDomEvent e elementOninput $ liftIO $ htmlTextAreaElementGetValue e
118 ev <- wrapDomEvent e elementOninput $ liftIO $ htmlTextAreaElementGetValue e