fay-0.9.2.0: tests/basicFunctions.hs

{-# LANGUAGE NoImplicitPrelude #-}

module BasicFunctions where

import           Language.Fay.FFI
import           Language.Fay.Prelude

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)"