1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE TypeFamilies, GADTs #-} module GADT13 where import Data.Kind (Type) data family HiThere a :: Type data instance HiThere () where HiThere :: HiThere ()