1 2 3 4 5 6 7 8 9 10 11 12
-- Kind error message should not contain bangs module ShouldFail where import Foreign.ForeignPtr data Foo = Foo {-# UNPACK #-} !(ForeignPtr)