blob: 7ec94bc4c7e1b414882b8a0b9055ed6194640438 (
plain)
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
|