fay-0.19: tests/doBindAssign.hs

module DoBindAssign where

main :: Fay ()
main = do
  x <- return "Hello, World!" >>= return
  putStrLn x