testsuite/tests/typecheck/should_compile/tc226.hs


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

{-# OPTIONS_GHC -funbox-strict-fields #-}

-- The combination of unboxing and a recursive newtype crashed GHC 6.6.1
-- Trac #1255

module Foo where

newtype Bar = Bar Bar -- Recursive

data Gah = Gah { baaz  :: !Bar }