@@ -533,7 +533,7 @@ instance Show Name where
533533instance Show SpecialName where
534534 show (WhereN i p c) = show p ++ ", " ++ show c
535535 show (WithN i n) = "with block in " ++ show n
536− show (InstanceN cl inst) = showSep ", " (map T.unpack inst) ++ " instance of " ++ show cl
536+ show (InstanceN cl inst) = showSep ", " (map T.unpack inst) ++ " implementation of " ++ show cl
537537 show (MethodN m) = "method " ++ show m
538538 show (ParentN p c) = show p ++ "#" ++ T.unpack c
539539 show (CaseN fc n) = "case block in " ++ show n ++