{-# LANGUAGE EmptyDataDecls #-} module Hello where import FFI data Event alert :: String -> Fay () alert = ffi "alert(%1)" setBodyHtml :: String -> Fay () setBodyHtml = ffi "document.body.innerHTML = %1" addWindowEvent :: String -> (Event -> Fay ()) -> Fay () addWindowEvent = ffi "window.addEventListener(%1, %2)" greet :: Event -> Fay () greet event = do putStrLn "The document has loaded" setBodyH