17 lines
No EOL
305 B
Elm
17 lines
No EOL
305 B
Elm
|
|
module Redirect where
|
|
|
|
import Foreign.JavaScript
|
|
import Signal.Input
|
|
|
|
|
|
foreign export jsevent "redirect"
|
|
redirectTo :: Signal JSString
|
|
|
|
(butn, pressed) = button " Redirect to elm-lang.org "
|
|
|
|
redirectTo =
|
|
lift castStringToJSString $
|
|
keepWhen pressed "" (constant "http://elm-lang.org/")
|
|
|
|
main = butn |