fay-0.9.1.0: tests/basicFunctions.hs

{-# LANGUAGE NoImplicitPrelude #-}

main = print (concat ["Hello, ","World!"])

concat = foldr append []

foldr f z []     = z
foldr f z (x:xs) = f x (foldr f z xs)

append (x:xs) ys = x : append xs ys
append []     ys = ys

print :: String -> Fay ()
print = ffi "console.log(%1)"