[T16199] Adds a verify-packages scriptghc-8.9-start

1 files changed, 20 insertions, 0 deletions

diff --git a/utils/verify-release/verify-packages.sh b/utils/verify-release/verify-packages.sh
new file mode 100755
index 0000000000..d5c6bf1bfc
--- /dev/null
+++ b/utils/verify-release/verify-packages.sh
@@ -0,0 +1,20 @@
+#!/bin/bash
+#
+# This script will verify that the packages in ghc,
+# correspond to packages on hackage.
+rm -fR ghc-packages hackage-packages package-diffs
+mkdir -p ghc-packages hackage-packages package-diffs
+# We'll skip Cabal and tarballs, while looking only at packages in libraries
+# that we reference as gitmodules.
+for lib in $(git submodule status|grep libraries|grep -v tarballs|grep -v Cabal|awk -F\  '{ print $2 }'); do
+    (cd $lib && cabal new-sdist -o ../../ghc-packages);
+done
+
+for pkg in $(cd ghc-packages && ls *.tar.gz); do
+    PKG=${pkg%%.tar.gz}
+    (cd hackage-packages && cabal get --pristine ${PKG})
+    (cd hackage-packages/${PKG} && git init && git add . && git commit -q -m "hackage packages" && rm -fR *)
+    (cd hackage-packages && tar xzf ../ghc-packages/$pkg)
+    (cd hackage-packages/${PKG} && git -c core.fileMode=false diff > ../$PKG.patch)
+done
+find hackage-packages -name "*.patch" -not -empty -type f -print -exec false {} +