path: root/testsuite/tests/driver/T8184/B.hs

module B where

import A

data Y = Y Int Int

thing :: X -> a
thing (X (Y a b)) = thing (X (Y a b))