fay-0.9.1.0: tests/Monad.hs

{-# LANGUAGE EmptyDataDecls    #-}
{-# LANGUAGE NoImplicitPrelude #-}

-- | Monads test.

module Monads 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)"