fay-0.10.0.0: tests/Monad.hs

{-# LANGUAGE EmptyDataDecls    #-}


-- | Monads test.

module Monad where

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

main :: Fay ()
main = do
  123 <- return 123
  x <- return 456
  print x >> return ()
  x <- return 666 >>= \_ -> return 789
  y <- return 101112
  print x
  print y

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