testsuite/tests/haddock/should_compile_flag_haddock/haddockA038.hs


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

module UnamedConstructorStrictFields where
-- See #15206

data A = A
data B = B

data Foo = MkFoo
  {-# UNPACK #-} !A -- ^ Unpacked strict field
                 B

data Bar =
  {-# UNPACK #-} !A -- ^ Unpacked strict field
    :%%
                 B