testsuite/tests/typecheck/should_compile/T15180.hs


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 ()