Jak napisać handler Ctrl-C w Haskell?

Question

Próbowałem następujące podejście:

import System.Exit 
import System.Posix.Signals 
import Control.Concurrent (threadDelay) 

main :: IO() 
main = do 
    installHandler keyboardSignal (Catch (do exitSuccess)) Nothing 
    threadDelay (1000000000) 

Ale to wyłącznie wyjście:

^CTest.hs: ExitSuccess 

na Ctrl-C, zamiast zamykania. Jak powinienem to zrobić właściwie?

Answer 1

Od docs installHandler:

handler jest zainstalowany które wywoła działanie w nowym wątku, kiedy (lub krótko po nim) jest odbierany sygnał.

i exitWith:

Uwaga: w GHC, exitWith powinna być wywoływana z głównego wątku programu, aby zakończyć proces. Po wywołaniu z innego wątku exitWith wyrzuci wyjątek ExitException jako normalny, ale wyjątek nie spowoduje zakończenia procesu.

Tak więc obsługa exitSuccess nie kończy procesu, a to jest oczekiwane (choć nieoczekiwane;) zachowanie.

Jeśli chcesz natychmiastowego działania,

import System.Exit 
import System.Posix.Signals 
import Control.Concurrent 

main :: IO() 
main = do 
    tid <- myThreadId 
    installHandler keyboardSignal (Catch (killThread tid)) Nothing 
    threadDelay (1000000000) 

zabija wątek natychmiast po odebraniu sygnału.

Mniej drastyczne, jeśli chcesz udane wyjście byłoby

import System.Exit 
import System.Posix.Signals 
import Control.Concurrent 
import qualified Control.Exception as E 

main :: IO() 
main = do 
    tid <- myThreadId 
    installHandler keyboardSignal (Catch (E.throwTo tid ExitSuccess)) Nothing 
    threadDelay (10000000) 

myślę, że będzie również działać niezawodnie, ale nie jestem do końca pewien.