mwotton · May 11, 2018 00:44
diff --git a/finally b/finally
 set ➜  ~  ./test4 &         
 [1] 23443
 set ➜  ~  kill 23443
 [1]  + 23443 terminated  ./test4                                                                                                                            
 set ➜  ~  cat test4.hs
 import Control.Exception
 import Control.Concurrent

 main :: IO ()
 main = threadDelay 30000000 `finally` (putStrLn "come to collect")
	set ➜ ~ ./test4 &
	[1] 23443
	set ➜ ~ kill 23443
	[1] + 23443 terminated ./test4
	set ➜ ~ cat test4.hs
	import Control.Exception
	import Control.Concurrent

	main :: IO ()
	main = threadDelay 30000000 `finally` (putStrLn "come to collect")