path: root/testsuite/tests/simplCore/should_compile/T23307b.hs

module Foo where

-- It's easy to get an infinite loop
-- when deciding what to unbox here.

data T = MkT !S Int
data S = MkS !T