testsuite/tests/ghci/should_run/T22958a.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{-# LANGUAGE MagicHash, UnboxedTuples #-}
import GHC.Exts
import GHC.IO

unit :: ()
unit = ()

i :: State# RealWorld -> (# State# RealWorld, () #)
i s = case seq# unit s of (# s', a #) -> (# s', a #)

bad :: IO ()
bad = IO i

main :: IO ()
main = bad >>= print