testsuite/tests/typecheck/should_fail/UnliftedNewtypesInfinite.hs


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