module Program.Mighty.Signal (
sigStop,
sigReload,
sigRetire,
sigInfo,
setHandler,
) where
import Control.Monad
import System.Posix
sigStop :: Signal
sigStop :: Signal
sigStop = Signal
sigTERM
sigReload :: Signal
sigReload :: Signal
sigReload = Signal
sigHUP
sigRetire :: Signal
sigRetire :: Signal
sigRetire = Signal
sigQUIT
sigInfo :: Signal
sigInfo :: Signal
sigInfo = Signal
sigUSR2
setHandler :: Signal -> Handler -> IO ()
setHandler :: Signal -> Handler -> IO ()
setHandler Signal
sig Handler
func = IO Handler -> IO ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (IO Handler -> IO ()) -> IO Handler -> IO ()
forall a b. (a -> b) -> a -> b
$ Signal -> Handler -> Maybe SignalSet -> IO Handler
installHandler Signal
sig Handler
func Maybe SignalSet
forall a. Maybe a
Nothing