{-# LANGUAGE NoImplicitPrelude #-} module DoBindAssign where import Language.Fay.FFI import Language.Fay.Prelude main = do x <- return "Hello, World!" >>= return print x print :: String -> Fay () print = ffi "console.log(%1)"