module A where a :: Char a = 'x'