kill.cabal

name:                kill
version:             0.4.9
build-type:          Simple
cabal-version:       >=1.10

executable kill
  hs-source-dirs:      .
  main-is:             kill.hs
  build-depends:       base >= 4.9.0.0 && < 5.0.0.0
                     , safe-exceptions
  ghc-options:         -threaded -rtsopts -with-rtsopts=-N -Wall
  default-language:    Haskell2010
  default-extensions:  TypeApplications

kill.hs

#!/usr/bin/env stack
{- stack
  script
  --resolver lts-9.1
  --package base
  --package safe-exceptions
-}

{-# LANGUAGE TypeApplications #-}

import Control.Exception.Safe
import Control.Concurrent

main :: IO ()
main = bracket_ (pure ()) (threadDelay 1000 >> putStrLn "text") (threadDelay 100500100500)
-- main = handleAny (putStrLn . mappend "caught " . show) (threadDelay 100500100500)
-- main = handleAsync @IO @SomeException (putStrLn . mappend "caught " . show) (threadDelay 100500100500)