Extend the formatting to other folders

Exclude cabal-testsuite until we can exclude the faulty cabal
files that fourmolu interpret (and on which it fails).

Author: Kleidukos

.github/workflows/linting.yml

@@ -23,10 +23,10 @@ jobs:
           cabal-benchmarks/**/*.hs
           cabal-dev-scripts/**/*.hs
           cabal-install-solver/**/*.hs
-          cabal-testsuite/**/*.hs
           solver-benchmarks/**/*.hs
           !Cabal-syntax/src/Distribution/Fields/Lexer.hs
           !Cabal-syntax/src/Distribution/SPDX/LicenseExceptionId.hs
           !Cabal-syntax/src/Distribution/SPDX/LicenseId.hs
           !Cabal/src/Distribution/Simple/Build/Macros/Z.hs
           !Cabal/src/Distribution/Simple/Build/PathsModule/Z.hs
+          !cabal-testsuite

Cabal-QuickCheck/src/Test/QuickCheck/GenericArbitrary.hs

@@ -1,11 +1,12 @@
-{-# LANGUAGE CPP              #-}
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE GADTs            #-}
+{-# LANGUAGE GADTs #-}
 {-# LANGUAGE TypeOperators #-}
-module Test.QuickCheck.GenericArbitrary (
-    genericArbitrary,
-    GArbitrary,
-) where
+
+module Test.QuickCheck.GenericArbitrary
+  ( genericArbitrary
+  , GArbitrary
+  ) where
 
 import GHC.Generics
 import Test.QuickCheck
@@ -19,31 +20,31 @@ genericArbitrary :: (Generic a, GArbitrary (Rep a)) => Gen a
 genericArbitrary = fmap to garbitrary
 
 class GArbitrary f where
-    garbitrary :: Gen (f ())
+  garbitrary :: Gen (f ())
 
 class GArbitrarySum f where
-    garbitrarySum :: [Gen (f ())]
+  garbitrarySum :: [Gen (f ())]
 
 class GArbitraryProd f where
-    garbitraryProd :: Gen (f ())
+  garbitraryProd :: Gen (f ())
 
 instance (GArbitrarySum f, i ~ D) => GArbitrary (M1 i c f) where
-    garbitrary = fmap M1 (oneof garbitrarySum)
+  garbitrary = fmap M1 (oneof garbitrarySum)
 
 instance (GArbitraryProd f, i ~ C) => GArbitrarySum (M1 i c f) where
-    garbitrarySum = [fmap M1 garbitraryProd]
+  garbitrarySum = [fmap M1 garbitraryProd]
 
 instance (GArbitrarySum f, GArbitrarySum g) => GArbitrarySum (f :+: g) where
-    garbitrarySum = map (fmap L1) garbitrarySum ++ map (fmap R1) garbitrarySum
+  garbitrarySum = map (fmap L1) garbitrarySum ++ map (fmap R1) garbitrarySum
 
 instance (GArbitraryProd f, i ~ S) => GArbitraryProd (M1 i c f) where
-    garbitraryProd = fmap M1 garbitraryProd
+  garbitraryProd = fmap M1 garbitraryProd
 
 instance GArbitraryProd U1 where
-    garbitraryProd = pure U1
+  garbitraryProd = pure U1
 
 instance (GArbitraryProd f, GArbitraryProd g) => GArbitraryProd (f :*: g) where
-    garbitraryProd = (:*:) <$> garbitraryProd <*> garbitraryProd
+  garbitraryProd = (:*:) <$> garbitraryProd <*> garbitraryProd
 
-instance (Arbitrary a) => GArbitraryProd (K1 i a) where
-    garbitraryProd = fmap K1 arbitrary
+instance Arbitrary a => GArbitraryProd (K1 i a) where
+  garbitraryProd = fmap K1 arbitrary