17 lines
297 B
Elm
17 lines
297 B
Elm
|
|
||
|
module Log where
|
||
|
|
||
|
import Foreign.JavaScript
|
||
|
import Signal.Input
|
||
|
|
||
|
|
||
|
foreign export jsevent "logMessage"
|
||
|
messages :: Signal JSString
|
||
|
|
||
|
(field, message) = textField ""
|
||
|
(butn , pressed) = button " Log "
|
||
|
|
||
|
messages =
|
||
|
lift castStringToJSString $ keepWhen pressed "" message
|
||
|
|
||
|
main = field `beside` butn
|