HaRe-0.8.0.0: test/testdata/FreeAndDeclared/DeclareRec.hs
module FreeAndDeclared.DeclareRec where
data R = RCon { r1 :: Int, r2 :: Char }
unR (RCon a b) = a
unR2 (RCon {r1 = a}) = a
module FreeAndDeclared.DeclareRec where
data R = RCon { r1 :: Int, r2 :: Char }
unR (RCon a b) = a
unR2 (RCon {r1 = a}) = a