14 lines
No EOL
299 B
Elm
14 lines
No EOL
299 B
Elm
|
|
module ChangeTitle where
|
|
|
|
import Foreign.JavaScript
|
|
import Signal.Input
|
|
|
|
|
|
foreign export jsevent "changeTitle"
|
|
title :: Signal JSString
|
|
|
|
(field, title) = let (f,t) = textField "" in
|
|
(f, lift castStringToJSString t)
|
|
|
|
main = plainText "Change this page's title to: " `beside` field |