split logic into script

Author: MaximilianAlgehed

.github/workflows/haskell-ci.yml

@@ -41,8 +41,7 @@ jobs:
           restore-keys: ${{ matrix.ghc-version }}-
       - run: cabal build all --ghc-options=-fhpc
       - run: cabal test all --ghc-options=-fhpc
-      - run: hpc report constrained.tix > coverage-report.md
-      - run: awk '{sub(/^[ \t]*/, "& - ")}1' coverage-report.md > coverage-report.md
+      - run: ./scripts/generate-coverage-report.sh constrained.tix > coverage-report.md
       - run: cabal haddock all
       - uses: actions/cache/save@v4
         with:
@@ -74,7 +73,7 @@ jobs:
           pattern: 'constrained-latest-coverage'
           merge-multiple: true
 
-      - run: ls -lah
+      - run: cat coverage-report.md
 
       - name: Find Comment
         uses: peter-evans/find-comment@v3

scripts/generate-coverage-comment.sh

@@ -0,0 +1,4 @@
+#!/bin/sh
+
+echo "# Coverage report"
+hpc report $1 | awk '{sub(/^[ \t]*/, "& - ")1; sub(/^  /, "", $0); print}'