ppr w])
instance Outputable FastString where
- ppr fs = text (unpackFS fs) -- Prints an unadorned string,
- -- no double quotes or anything
+ ppr fs = ftext fs -- Prints an unadorned string,
+ -- no double quotes or anything
instance Outputable PackageId where
ppr pid = text (packageIdString pid)
pprHsString :: FastString -> SDoc
pprHsString fs = text (show (unpackFS fs))
-
-instance Show FastString where
- showsPrec p fs = showsPrecSDoc p (ppr fs)
\end{code}