Remove CPP and re-enable fourmolu where appropriate

Author: andreabedini

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

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP              #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE GADTs            #-}
 {-# LANGUAGE TypeOperators #-}

Cabal-syntax/src/Distribution/Compat/Graph.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE BangPatterns #-}
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE ScopedTypeVariables #-}

Cabal-syntax/src/Distribution/Compat/Newtype.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE DefaultSignatures #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE FunctionalDependencies #-}
@@ -32,7 +31,6 @@ import Data.Monoid (Endo (..), Product (..), Sum (..))
 -- Another approach would be to use @TypeFamilies@ (and possibly
 -- compute inner type using "GHC.Generics"), but we think @FunctionalDependencies@
 -- version gives cleaner type signatures.
-{- FOURMOLU_DISABLE -}
 class Newtype o n | n -> o where
   pack :: o -> n
   default pack :: Coercible o n => o -> n
@@ -41,7 +39,6 @@ class Newtype o n | n -> o where
   unpack :: n -> o
   default unpack :: Coercible n o => n -> o
   unpack = coerce
-{- FOURMOLU_ENABLE -}
 
 instance Newtype a (Identity a)
 instance Newtype a (Sum a)

Cabal-syntax/src/Distribution/Compat/Prelude.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE Trustworthy #-}
@@ -180,23 +179,25 @@ module Distribution.Compat.Prelude
   , traceShowM
   ) where
 
--- We also could hide few partial function
-{- FOURMOLU_DISABLE -}
-import Prelude                       as BasePrelude hiding
-    ( mapM, mapM_, sequence, any, all, head, tail, last, init
-    -- partial functions
-    , read
-    , foldr1, foldl1
-    -- As of base 4.11.0.0 Prelude exports part of Semigroup(..).
-    -- Hide this so we instead rely on Distribution.Compat.Semigroup.
-    , Semigroup(..)
-    , Word
-    -- We hide them, as we import only some members
-    , Traversable, traverse, sequenceA
-    , Foldable(..)
-    )
-{- FOURMOLU_ENABLE -}
 import Data.Foldable as BasePrelude (elem, foldl, maximum, minimum, product, sum)
+import Prelude as BasePrelude hiding
+  ( Foldable (..)
+  , Semigroup (..)
+  , Traversable
+  , Word
+  , all
+  , any
+  , head
+  , init
+  , last
+  , mapM
+  , mapM_
+  , read
+  , sequence
+  , sequenceA
+  , tail
+  , traverse
+  )
 
 -- AMP
 import Data.Foldable

Cabal-syntax/src/Distribution/Fields/ParseResult.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE BangPatterns #-}
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE RankNTypes #-}
 

Cabal-syntax/src/Distribution/Parsec.hs

@@ -1,5 +1,4 @@
 {-# LANGUAGE BangPatterns #-}
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE RankNTypes #-}

Cabal-syntax/src/Distribution/System.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE FlexibleContexts #-}

Cabal-tests/tests/UnitTests/Distribution/Utils/CharSet.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 module UnitTests.Distribution.Utils.CharSet where
 
 import Prelude hiding (Foldable(..))

Cabal/src/Distribution/Compat/Async.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE DeriveDataTypeable #-}
 
 -- | 'Async', yet using 'MVar's.
@@ -146,13 +145,11 @@ data AsyncCancelled = AsyncCancelled
     , Typeable
     )
 
-{- FOURMOLU_DISABLE -}
 instance Exception AsyncCancelled where
   -- wraps in SomeAsyncException
   -- See https://github.com/ghc/ghc/commit/756a970eacbb6a19230ee3ba57e24999e4157b09
   fromException = asyncExceptionFromException
   toException = asyncExceptionToException
-{- FOURMOLU_ENABLE -}
 
 -- | Cancel an asynchronous action
 --

Cabal/src/Distribution/Compat/ResponseFile.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE CPP #-}
 {-# LANGUAGE FlexibleContexts #-}
 {-# LANGUAGE RankNTypes #-}