1 2 3 4 5 6 7 8 9
{-# LANGUAGE FlexibleInstances #-} module SafeInfered05_A where class C a where f :: a -> String instance C [Int] where f _ = "[Int]"