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