path: root/testsuite/tests/rename/should_compile/T3823A.hs

module T3823A where

import T3823B

data A = X { x :: Bool } | Y

y :: A -> A
y = \_ -> Y