module T9156 where

data D = D1 { f1 :: Int }
       | D2 { f1, f1 :: Int }