fay-0.24.2.0: examples/node.hs

-- | Simple example interfacing with node.

{-# LANGUAGE EmptyDataDecls    #-}


module Test where

import           FFI
import           Prelude

data Sys

data Details
instance Show Details

main = do
  sys <- require' "sys"
  npm <- require' "npm"
  details <- inspect sys npm
  print $ details

require' :: String -> Fay Sys
require' = ffi "require(%1)"

inspect :: Sys -> Automatic a -> Fay Details
inspect = ffi "%1.inspect(%2)"