stubborn-zombie.hs

stubborn-zombie.hs

#!/usr/bin/env stack
-- stack runghc --resolver=lts-9.6 --install-ghc --package=unix
{-# LANGUAGE UnicodeSyntax #-}
{-# LANGUAGE PackageImports #-}

import "base" Control.Monad (forever)
import "base" Control.Concurrent (threadDelay)

import "unix" System.Posix.Signals
  (Handler (Catch), installHandler, sigHUP, sigINT, sigTERM, sigPIPE)

main ∷ IO ()
main = do
  putStrLn "I DON'T WANNA DIE!!!111"
  mapM_ fokDat [sigHUP, sigINT, sigTERM, sigPIPE]
  forever $ threadDelay maxBound
  where fokDat sig = installHandler sig (Catch $ return ()) Nothing