spacepaste

Paste details

reply | raw

  1.  
  2. import Control.Concurrent
  3. import Control.Monad
  4. import System.Posix
  5. import System.Exit
  7. main = do
  8. installHandler sigINT (Catch $ do putStrLn "signal caught" >> exitSuccess) Nothing
  9. pid <- forkProcess $
  10. forever $ return ()
  11. threadDelay 2000000
  12. putStrLn "Killing"
  13. signalProcess sigINT pid
  14. threadDelay 2000000
  15. putStrLn "hihi"
  16.  
Powered by spacepaste. Paste removal.