Merge pull request #191 from haskell-works/hlint-update

HLint update

Author: newhoggy

.circleci/config.yml

@@ -33,21 +33,12 @@ workflows:
           cabal-build-extra: --write-ghc-environment-files=ghc8.4.4+
           cabal-test-extra: --test-show-details=direct --test-options='+RTS -g1'
 
-      - haskell/build-with-binary-cache:
-          name: GHC 8.10.2
-          executor: haskell/ghc-8_10_2
-          context: haskell-ci
-          binary-cache-uri: ${BINARY_CACHE_URI-"http://hw-binary-cache-us-west-2-a.s3-website-us-west-2.amazonaws.com/archive"}
-          cabal-build-extra: --write-ghc-environment-files=ghc8.4.4+
-          cabal-test-extra: --test-show-details=direct --test-options='+RTS -g1'
-
       - merge-point/merge-point:
           name: Build Ok
           requires:
             - GHC 8.4.4
             - GHC 8.6.5
             - GHC 8.8.3
-            - GHC 8.10.2
 
       - github/release-cabal:
           name: GitHub Release

.github/workflows/haskell.yml

@@ -1,33 +1,85 @@
-# This is a basic workflow to help you get started with Actions
+name: Haskell
 
-name: CI
+defaults:
+  run:
+    shell: bash
 
-# Controls when the action will run. Triggers the workflow on push or pull request
-# events but only for the master branch
-on:
-  push:
-    branches: [ master ]
-  pull_request:
-    branches: [ master ]
+on: [push]
 
-# A workflow run is made up of one or more jobs that can run sequentially or in parallel
 jobs:
-  # This workflow contains a single job called "build"
   build:
-    # The type of runner that the job will run on
-    runs-on: ubuntu-latest
+    runs-on: ${{ matrix.os }}
+
+    strategy:
+      fail-fast: false
+      matrix:
+        ghc: ["8.8.4", "8.6.5", "8.8.3", "8.10.2"]
+        os: [ubuntu-latest]
 
-    # Steps represent a sequence of tasks that will be executed as part of the job
     steps:
-      # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it
       - uses: actions/checkout@v2
+        with:
+          submodules: true
+      - uses: actions/setup-haskell@v1
+        id: setup-haskell
+        with:
+          ghc-version: ${{ matrix.ghc }}
+
+      - name: Configure
+        run: cabal configure --write-ghc-environment-files=ghc8.4.4+
+
+      - name: Restore cabal cache
+        uses: haskell-works/cabal-cache-action@v1
+        env:
+          AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }}
+          AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }}
+          BINARY_CACHE_REGION: ${{ secrets.BINARY_CACHE_REGION }}
+          BINARY_CACHE_THREADS: ${{ secrets.BINARY_CACHE_THREADS }}
+          BINARY_CACHE_URI: ${{ secrets.BINARY_CACHE_URI }}
+        with:
+          args: |
+            sync-from-archive \
+              --threads       "$BINARY_CACHE_THREADS" \
+              --archive-uri   "$BINARY_CACHE_URI" \
+              --region        "$BINARY_CACHE_REGION" \
+              --store-path    "${{ steps.setup-haskell.outputs.cabal-store }}"
+
+      - name: Build
+        run: cabal build all
+
+      - name: Save cabal cache
+        uses: haskell-works/cabal-cache-action@v1
+        if: ${{ always() }}
+        env:
+          AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }}
+          AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }}
+          BINARY_CACHE_REGION: ${{ secrets.BINARY_CACHE_REGION }}
+          BINARY_CACHE_THREADS: ${{ secrets.BINARY_CACHE_THREADS }}
+          BINARY_CACHE_URI: ${{ secrets.BINARY_CACHE_URI }}
+        with:
+          args: |
+            sync-to-archive \
+              --threads       "$BINARY_CACHE_THREADS" \
+              --archive-uri   "$BINARY_CACHE_URI" \
+              --region        "$BINARY_CACHE_REGION" \
+              --store-path    "${{ steps.setup-haskell.outputs.cabal-store }}"
 
-      # Runs a single command using the runners shell
-      - name: Run a one-line script
-        run: echo Hello, world!
+      - name: Build
+        run: cabal test all --test-show-details=direct
 
-      # Runs a set of commands using the runners shell
-      - name: Run a multi-line script
-        run: |
-          echo Add other actions to build,
-          echo test, and deploy your project.
+      - name: Save cabal cache
+        uses: haskell-works/cabal-cache-action@v1
+        if: ${{ always() }}
+        env:
+          AWS_ACCESS_KEY_ID: ${{ secrets.AWS_ACCESS_KEY_ID }}
+          AWS_SECRET_ACCESS_KEY: ${{ secrets.AWS_SECRET_ACCESS_KEY }}
+          BINARY_CACHE_REGION: ${{ secrets.BINARY_CACHE_REGION }}
+          BINARY_CACHE_THREADS: ${{ secrets.BINARY_CACHE_THREADS }}
+          BINARY_CACHE_URI: ${{ secrets.BINARY_CACHE_URI }}
+        with:
+          args: |
+            sync-to-archive \
+              --threads       "$BINARY_CACHE_THREADS" \
+              --archive-uri   "$BINARY_CACHE_URI" \
+              --region        "$BINARY_CACHE_REGION" \
+              --store-path    "${{ steps.setup-haskell.outputs.cabal-store }}"

app/App/Commands.hs

@@ -6,6 +6,8 @@ import App.Commands.CreateIndex
 import App.Commands.Demo
 import Options.Applicative
 
+{- HLINT ignore "Monoid law, left identity" -}
+
 commands :: Parser (IO ())
 commands = commandsGeneral
 

app/App/Commands/Count.hs

@@ -32,10 +32,7 @@ import qualified HaskellWorks.Data.Json.Standard.Cursor.Fast as JCF
 import qualified System.IO.MMap                              as IO
 
 siblings :: GenericCursor BSI.ByteString CsPoppy1 (RM.RangeMin CsPoppy1) -> [GenericCursor BSI.ByteString CsPoppy1 (RM.RangeMin CsPoppy1)]
-siblings c = c:cs
-  where cs = case nextSibling c of
-          Just d  -> siblings d
-          Nothing -> []
+siblings c = c:maybe [] siblings (nextSibling c)
 
 runCount :: Z.CountOptions -> IO ()
 runCount opts = do

app/App/Commands/CreateIndex.hs

@@ -32,8 +32,8 @@ import qualified System.Exit
 import qualified System.IO                                                          as IO
 import qualified System.IO.MMap                                                     as IO
 
-{-# ANN module ("HLint: ignore Reduce duplication"  :: String) #-}
-{-# ANN module ("HLint: ignore Redundant do"        :: String) #-}
+{- HLINT ignore "Reduce duplication" -}
+{- HLINT ignore "Redundant do"       -}
 
 runCreateIndexStandard :: Z.CreateIndexOptions -> IO ()
 runCreateIndexStandard opts = do

app/App/Commands/Demo.hs

@@ -34,6 +34,8 @@ import qualified Options.Applicative                        as OA
 import qualified System.IO                                  as IO
 import qualified System.IO.MMap                             as IO
 
+{- HLINT ignore "Reduce duplication" -}
+
 runDemo :: Z.DemoOptions -> IO ()
 runDemo opts = do
   let filePath = opts ^. the @"filePath"

bench/Main.hs

@@ -6,5 +6,5 @@ import Criterion.Main
 
 main :: IO ()
 main = do
-  benchmarks <- fmap mconcat $ sequence $ mempty
+  benchmarks <- mconcat <$> sequence mempty
   defaultMain benchmarks

examples/Example4.hs

@@ -18,6 +18,8 @@ import HaskellWorks.Data.MQuery.Micro
 
 import qualified Data.DList as DL
 
+{- HLINT ignore "Reduce duplication" -}
+
 example :: IO ()
 example = do
   !cursor <- loadPartial "corpus/bench/78mb.json"

src/HaskellWorks/Data/Json/FromValue.hs

@@ -1,5 +1,4 @@
-{-# LANGUAGE FlexibleInstances    #-}
-{-# LANGUAGE TypeSynonymInstances #-}
+{-# LANGUAGE FlexibleInstances #-}
 
 module HaskellWorks.Data.Json.FromValue where
 

src/HaskellWorks/Data/Json/Internal/Standard/Token/Tokenize.hs

@@ -2,7 +2,6 @@
 {-# LANGUAGE FlexibleInstances     #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE OverloadedStrings     #-}
-{-# LANGUAGE TypeSynonymInstances  #-}
 
 module HaskellWorks.Data.Json.Internal.Standard.Token.Tokenize
     ( IsChar(..)
@@ -25,6 +24,8 @@ import qualified Data.Attoparsec.Types            as T
 import qualified Data.ByteString                  as BS
 import qualified HaskellWorks.Data.Parser         as P
 
+{- HLINT ignore "Reduce duplication" -}
+
 hexDigitNumeric :: P.Parser t u => T.Parser t Int
 hexDigitNumeric = do
   c <- P.satisfyChar (\c -> '0' <= c && c <= '9')