testsuite/tests/rename/should_fail/rn_dup.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19


-- Test for top-level duplicates

module Dup where

data T = MkT | MkT

data S = MkT

data P = MkP { rf :: Int, rf :: Int }
data Q = MkQ { rf :: Int }

class C a where
  data CT a 
  f :: CT a -> a
  data CT a
  f :: CT a -> a