1 2 3 4 5 6 7
module OrphanInstances where import OrphanInstancesType import OrphanInstancesClass instance AClass AnotherType where aClass (AType n) = n