chrisdone/duet
1
1
Fork 0
mirror of https://github.com/chrisdone/duet.git synced 2024-10-26 11:30:19 +03:00
Code Issues Projects Releases Wiki Activity

Switch to textarea

Browse Source
This commit is contained in:
Chris Done 2017-10-07 17:08:53 +01:00
parent 35fb997be7
commit 490195ab37
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
web/IDE.hs
View File

@ -234,12 +234,12 @@ newEditorEvent
=> Editor t m a -> Maybe a -> m (Event t a)
newEditorEvent (Editor printer parser renderer) mdef = do
inputWidget <-
textInput def {_textInputConfig_initialValue = maybe "" printer mdef}
textArea def {_textAreaConfig_initialValue = maybe "" printer mdef}
parseResultDyn <-
foldDyn
(const . Just . parser)
(fmap Right mdef)
(_textInput_input inputWidget)
(_textArea_input inputWidget)
widgetDyn <-
mapDyn
(\case