ci: add hlint escape hatch (#71)

* ci: add hlint escape hatch

Co-authored-by: Antoine Leblanc <[email protected]>
GITHUB_PR_NUMBER: 6164
GITHUB_PR_URL: hasura#6164

* Applied changes to new workflow files.

* Add missing label trigger for lint worklow

Co-authored-by: Antoine Leblanc <[email protected]>
GitOrigin-RevId: 3e22c30

Author: hasura-bot

.github/workflows/changelog.yml

@@ -1,5 +1,5 @@
-on: pull_request
-name: changelog 
+on: [label, pull_request]
+name: changelog
 jobs:
   check:
     runs-on: ubuntu-latest

.github/workflows/hlint.yml

@@ -1,20 +1,21 @@
 name: server lint
 on:
+  label:
   pull_request:
     paths:
       - 'server/**'
 
 jobs:
   hlint:
     runs-on: ubuntu-20.04
+    if: "!contains(github.event.pull_request.labels.*.name, 'ignore-server-hlint-checks') && github.event.label.name != 'ignore-server-hlint-checks'"
     env:
       working-directory: ./server
       HLINT_BASE_URL: https://dl.haskellworks.io/binaries/hlint
       HLINT_VERSION: 3.1.6
       HLINT_ARCH: x86_64
       HLINT_OS: linux
       HLINT_URL: $HLINT_BASE_URL/hlint-${HLINT_VERSION}-${HLINT_ARCH}-${HLINT_OS}.tar.gz
-
     steps:
       - uses: actions/checkout@v2
         with:

server/.hlint.yaml

@@ -109,6 +109,7 @@
     - warn: {lhs: "case x of {Just b -> pure b; Nothing -> a}", rhs: "onNothing x a"}
     - warn: {lhs: "case x of {Nothing -> a; Just b -> return b}", rhs: "onNothing x a"}
     - warn: {lhs: "case x of {Just b -> return b; Nothing -> a}", rhs: "onNothing x a"}
+    - warn: {lhs: "fromMaybe [] x", rhs: "maybeToList x"}
 
 - group:
     name: data-text-extended