fay-0.4.0.4: examples/data.hs

-- Generate Show value.
--
-- $ fay -autorun examples/data.hs
-- $ node examples/data.js
-- (Foo { x = 123, y = "abc", z = (Bar) })

{-# LANGUAGE NoImplicitPrelude #-}

module Data where

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

data Foo = Foo { x :: Double, y :: String, z :: Foo } | Bar
  deriving (Show)
instance Foreign Foo

main = print (show (Foo 123 "abc" Bar))

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