1 2 3 4 5 6 7 8 9
{-# LANGUAGE TypeFamilies #-} module ClosedFam2 where import ClosedFam2a type family Foo a where Foo Int = Bool Foo [a] = Maybe a