1 2 3 4 5 6 7 8 9
{-# LANGUAGE PolyKinds, TypeFamilies, DataKinds, TemplateHaskell #-} module T7022b where import T7022a data family Sing (a :: k) $( makeSList )