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