fay-0.9.1.0: tests/fix.hs
{-# LANGUAGE NoImplicitPrelude #-}
main = print (head (tail (fix (\xs -> 123 : xs))))
print :: Double -> Fay ()
print = ffi "console.log(%1)"
head (x:xs) = x
fix f = let x = f x in x
tail (_:xs) = xs
{-# LANGUAGE NoImplicitPrelude #-}
main = print (head (tail (fix (\xs -> 123 : xs))))
print :: Double -> Fay ()
print = ffi "console.log(%1)"
head (x:xs) = x
fix f = let x = f x in x
tail (_:xs) = xs