@@ -321,12 +321,12 @@ handleShowImportedModules = do
321321 refsList refs = "(" ++ commaList (map showRef refs) ++ ")"
322322
323323 showRef :: P.DeclarationRef -> String
324− showRef (P.TypeRef pn dctors) = show pn ++ "(" ++ maybe ".." (commaList . map N.runProperName) dctors ++ ")"
325− showRef (P.ValueRef ident) = show ident
326− showRef (P.TypeClassRef pn) = show pn
327− showRef (P.ProperRef pn) = show pn
328− showRef (P.TypeInstanceRef ident) = show ident
329− showRef (P.ModuleRef name) = "module " ++ show name
324+ showRef (P.TypeRef pn dctors) = N.runProperName pn ++ "(" ++ maybe ".." (commaList . map N.runProperName) dctors ++ ")"
325+ showRef (P.ValueRef ident) = N.runIdent ident
326+ showRef (P.TypeClassRef pn) = N.runProperName pn
327+ showRef (P.ProperRef pn) = N.runProperName pn
328+ showRef (P.TypeInstanceRef ident) = N.runIdent ident
329+ showRef (P.ModuleRef name) = "module " ++ N.runModuleName name
330330 showRef (P.PositionedDeclarationRef _ _ ref) = showRef ref
331331
332332 commaList :: [String] -> String