Add test case for #7117
[ghc.git] / testsuite / tests / ghci / scripts / T5417.hs
1 {-# LANGUAGE TypeFamilies #-}
2 module T5417 where
3 import qualified T5417a as C
4
5 data B1 a = B1 a
6
7 instance C.C1 (B1 a) where
8 data F (B1 a) = B2 a
9
10 data family D a