fay-0.9.2.0: tests/recordUseBeforeDefine.hs

{-# LANGUAGE NoImplicitPrelude #-}

module RecordUseBeforeDefine where

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

import           Hierarchical.RecordDefined

f :: R -> Double
f (R i) = i

main = do
  print $ f (R 1)
  print $ g (Callback 1)

data R = R Double

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