html-test/src/Bug466.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE DataKinds, TypeFamilies, StarIsType #-}
module Bug466 where

class Cl a where
  type Fam a :: [*]

data X = X
instance Cl X where
  type Fam X = '[Char]