exception-safe

et ➜  ~  stack ghc test3.hs           
[1 of 1] Compiling Main             ( test3.hs, test3.o )
Linking test3 ...
set ➜  ~  ./test3 &         
[1] 23291
set ➜  ~  kill 23291        
[1]  + 23291 terminated  ./test3                                                                                                                            

set ➜  ~  cat test3.hs
import Control.Exception.Safe
import Control.Concurrent

main :: IO ()
main = bracket (return ()) (\_ -> putStrLn "come to collect") (\_ -> threadDelay  30000000)