path: root/testsuite/tests/typecheck/should_fail/tcfail162.hs

-- Kind error messsage should not contain bangs

module ShouldFail where

import Foreign.ForeignPtr

data Foo = Foo {-# UNPACK #-} !(ForeignPtr)