Add this to your .ghci:

:set -XFlexibleInstances
instance {-# INCOHERENT #-} Show [Char] where show s = "\"" ++ s ++ "\""