17 lines
305 B
Elm
17 lines
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
|