mirror of
https://github.com/chrisdone/duet.git
synced 2024-10-26 11:30:19 +03:00
Switch to textarea
This commit is contained in:
parent
35fb997be7
commit
490195ab37
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user