Ich habe den folgenden Ansatz ausprobiert:

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

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

Aber es gibt nur aus:

^CTest.hs: ExitSuccess

aufCtrl-C, anstatt zu beenden. Wie soll ich es richtig machen?