Main.hs

import           System.Posix.Signals

main = do
   mainId <- myThreadId
  _ <-
    installHandler
      softwareTermination
      (CatchOnce
         (do putStrLn "Received SIGTERM. Killing main thread."
             killThread mainId))
      Nothing
  ...