blob: 644943e398af414654cbf212dc4261c667767918 (
plain)
1
2
3
4
5
6
7
8
9
|
{-# language MagicHash #-}
{-# language UnboxedTuples #-}
{-# language UnliftedNewtypes #-}
module UnliftedNewtypesInfinite where
import GHC.Exts (Int#)
newtype Foo = FooC (# Int#, Foo #)
|