Added check-changelogs script to CI

Author: coot

.github/workflows/haskell.yml

@@ -188,3 +188,22 @@ jobs:
       run: |
         ./scripts/check-stylish.sh
         git diff --exit-code
+
+  check-changelogs:
+    name: Check changelogs
+    runs-on: ubuntu-latest
+    defaults:
+      run:
+        shell: bash
+
+    steps:
+    - name: Install dependencies
+      run: sudo apt install -y fd-find
+
+    - uses: actions/checkout@v3
+
+    - name: git fetch
+      run: git fetch origin main:main
+
+    - name: Check changelogs
+      run: ./scripts/check-changelogs.sh

scripts/check-changelogs.sh

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+FD="$(which fdfind 2>/dev/null || which fd 2>/dev/null)"
+
+set -eo pipefail
+
+function check_project () {
+  project=$1
+  n=$()
+  if [[ -n $(git diff --name-only origin/main..HEAD -- $project) ]];then
+    if [[ -z $(git diff --name-only origin/main..HEAD -- $project/CHANGELOG.md) ]]; then
+      echo "$project was modified but its CHANGELOG was not updated"
+      exit 1
+    fi
+  fi
+}
+
+for cbl in $($FD -e 'cabal'); do
+  check_project $(dirname $cbl)
+done
+