pimeys · May 18, 2015 12:44
diff --git a/simple_monad.hs b/simple_monad.hs
 import Data.Maybe

 foo :: Maybe String
 foo = do
  x <- Just "foo"
  y <- Nothing
  z <- Just "baz"
  Just (x ++ y ++ z)

 main = do
  putStrLn $ fromMaybe "it was empty!" foo
	import Data.Maybe

	foo :: Maybe String
	foo = do
	x <- Just "foo"
	y <- Nothing
	z <- Just "baz"
	Just (x ++ y ++ z)

	main = do
	putStrLn $ fromMaybe "it was empty!" foo