X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FOutputable.lhs;h=85b32e46c3bb0aa343a4f5b98989707e9c200f96;hb=1a7d1b77334529ca96ed4cbc03fcb5f55dc2de4a;hp=2433cbd0c1110b4eefed6d6916b8b48d0a166504;hpb=e932508283461bfc5b6658a374fd6e9126979e49;p=ghc-hetmet.git diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 2433cbd..85b32e4 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -51,12 +51,10 @@ module Outputable ( #include "HsVersions.h" -import {-# SOURCE #-} Module( Module, - ModuleName, moduleName ) +import {-# SOURCE #-} Module( Module, ModuleName, moduleName ) import {-# SOURCE #-} OccName( OccName ) import StaticFlags ( opt_PprStyle_Debug, opt_PprUserLength ) -import PackageConfig ( PackageId, packageIdString ) import FastString import FastTypes import GHC.Ptr @@ -477,9 +475,6 @@ instance (Outputable a, Outputable b, Outputable c, Outputable d) => instance Outputable FastString where ppr fs = ftext fs -- Prints an unadorned string, -- no double quotes or anything - -instance Outputable PackageId where - ppr pid = text (packageIdString pid) \end{code}