Skip to content

Instantly share code, notes, and snippets.

@mwotton
Created May 11, 2018 00:44
Show Gist options
  • Save mwotton/d587f73efbd871415133edd69f777c50 to your computer and use it in GitHub Desktop.
Save mwotton/d587f73efbd871415133edd69f777c50 to your computer and use it in GitHub Desktop.
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")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment