T15180.hs 193 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11
{-# LANGUAGE MagicHash #-}
module Main where

import Control.Exception
import System.Exit
import GHC.Exts

main :: IO ()
main = do
  let a = throw $ toException ExitSuccess :: Int#
  return ()