1 2 3 4 5 6 7 8 9 10
{-# LANGUAGE TypeFamilies #-} module Simple10 where type family T a foo, bar :: T a -> a foo = undefined bar x = foo x