1 2 3 4 5 6 7
{-# LANGUAGE FlexibleInstances #-} module PLib where p = 'e' instance {-# OVERLAPPING #-} Show [Char] where show _ = "empty"