1 2 3 4 5 6 7 8
{-# LANGUAGE PolyKinds, TypeFamilies #-} module Bug where import GHC.Exts class HasRep a where type Rep a :: TYPE r