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