Tidy up TcSplice, especially runMeta and friends

[ghc-hetmet.git] / compiler / main / Annotations.lhs

diff --git a/compiler/main/Annotations.lhs b/compiler/main/Annotations.lhs
index 335ce31..d1b566b 100644 (file)
--- a/compiler/main/Annotations.lhs
+++ b/compiler/main/Annotations.lhs
@@ -62,6 +62,8 @@ instance Outputable name => Outputable (AnnTarget name) where
     ppr (NamedTarget nm) = text "Named target" <+> ppr nm
     ppr (ModuleTarget mod) = text "Module target" <+> ppr mod
 
+instance Outputable Annotation where
+    ppr ann = ppr (ann_target ann)
 
 -- | A collection of annotations
 newtype AnnEnv = MkAnnEnv (UniqFM [Serialized])