fay is an open source programming language created in 2012 by Chris Done.
#529on PLDB | 12Years Old |
git clone https://github.com/faylang/fay
A proper subset of Haskell that compiles to JavaScript
{-# 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"
setBodyHtml "Hello HTML!"
main :: Fay ()
main = do
putStrLn "Hello Console!"
alert "Hello Alert!"
addWindowEvent "load" greet