blob: cefb00f5b0add0bfd127772aa8e0c22cd7350af3 (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE TypeFamilies #-}
module ShouldFail where
-- must fail: C6 has no ATs S3 and Map
class C6 a
instance C6 Integer where
data Map Integer v = MapInteger
data S3 Integer = S3Integer
|