git.iko.soy/stackage
on master help sign in
commenter outdated: Strip out boot libs and remove some noise
7dc339fAdam Bergmark
etc/commenter/src/lib.rs+50−10
compare with master
unifiedsplit
@@ -32,7 +32,6 @@ enum VersionTag {
32}
32}
33
33
34impl VersionTag {
34impl VersionTag {
35−
36 fn tag(&self) -> &'static str {
35 fn tag(&self) -> &'static str {
37 match self {
36 match self {
38 VersionTag::Manual(_) => "manual",
37 VersionTag::Manual(_) => "manual",
@@ -77,6 +76,9 @@ pub fn outdated() {
77 let mut i = 0;
76 let mut i = 0;
78
77
79 for (package, version) in map {
78 for (package, version) in map {
79+ if is_boot(&package) {
80+ continue;
81+ }
80 if i % 100 == 0 {
82 if i % 100 == 0 {
81 println!("{:02}%", ((i as f64 / entries as f64) * 100.0).floor());
83 println!("{:02}%", ((i as f64 / entries as f64) * 100.0).floor());
82 }
84 }
@@ -85,33 +87,71 @@ pub fn outdated() {
85 if version.version() != latest {
87 if version.version() != latest {
86 println!(
88 println!(
87 "{} mismatch, {}: {}, hackage: {}",
89 "{} mismatch, {}: {}, hackage: {}",
90+ package,
91+ version.tag(),
88− package, version.tag(), version.version(), latest
92+ version.version(),
93+ latest
89 );
94 );
90 }
95 }
91 }
96 }
92
97
93 for ((package, version), dependents) in support {
98 for ((package, version), dependents) in support {
99+ if is_boot(&package) {
100+ continue;
101+ }
102+
94 if i % 100 == 0 {
103 if i % 100 == 0 {
95 println!("{:02}%", ((i as f64 / entries as f64) * 100.0).floor());
104 println!("{:02}%", ((i as f64 / entries as f64) * 100.0).floor());
96 }
105 }
97 i += 1;
106 i += 1;
98 let latest = latest_version(&package);
107 let latest = latest_version(&package);
99 if version != latest {
108 if version != latest {
109+ let max = 3;
110+ let dependents_stripped = dependents.len().checked_sub(max).unwrap_or(0);
111+ let dependents = dependents
112+ .into_iter()
113+ .take(max)
114+ .map(|(p, v)| format!("{}-{}", p, v))
115+ .collect::<Vec<String>>()
116+ .join(", ");
117+ let dependents = if dependents_stripped > 0 {
118+ format!("{} and {} more", dependents, dependents_stripped)
119+ } else {
120+ dependents
121+ };
122+
100 println!(
123 println!(
101 "{} mismatch, snapshot: {}, hackage: {}, dependents: {}",
124 "{} mismatch, snapshot: {}, hackage: {}, dependents: {}",
102− package,
103− version,
104− latest,
105− dependents
125+ package, version, latest, dependents,
106− .into_iter()
107− .map(|(p, v)| format!("{}-{}", p, v))
108− .collect::<Vec<String>>()
109− .join(", "),
110 );
126 );
111 }
127 }
112 }
128 }
113}
129}
114
130
131+fn is_boot(package: &str) -> bool {
132+ [
133+ "Cabal",
134+ "base",
135+ "bytestring",
136+ "containers",
137+ "containers",
138+ "directory",
139+ "filepath",
140+ "deepseq",
141+ "ghc",
142+ "ghc-boot",
143+ "ghc-boot-th",
144+ "ghc-prim",
145+ "integer-gmp",
146+ "process",
147+ "stm",
148+ "template-haskell",
149+ "text",
150+ "time",
151+ ]
152+ .contains(&package)
153+}
154+
115fn latest_version(pkg: &str) -> String {
155fn latest_version(pkg: &str) -> String {
116 String::from_utf8(
156 String::from_utf8(
117 Command::new("latest-version")
157 Command::new("latest-version")