fork(6) download
copy 
  1. foo = do
  2. 	putStrLn "foo"
  3. 	return 5
  4.  
  5. bar flag d = do
  6. 	putStrLn $ "flag = " ++ show flag
  7. 	x <- d
  8. 	if flag
  9. 		then putStrLn $ "data = " ++ show x
  10. 		else return ()
  11.  
  12. main = do
  13. 	bar True  foo
  14. 	bar False foo
  15.  
Success #stdin #stdout 0s 4548KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
flag = True
foo
data = 5
flag = False
foo
https://ideone.com/A0pXvm
language:
Haskell (ghc 8.4.4)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!