Remove added redundant brackets

Author: philderbeast

Cabal/src/Distribution/PackageDescription/Check/Target.hs

@@ -79,7 +79,7 @@ checkLibrary
     checkP
       ( not $
           all
-            (`elem` (explicitLibModules lib))
+            (`elem` explicitLibModules lib)
             (libModulesAutogen lib)
       )
       (PackageBuildImpossible AutogenNotExposed)
@@ -172,7 +172,7 @@ checkExecutable
     -- Alas exeModules ad exeModulesAutogen (exported from
     -- Distribution.Types.Executable) take `Executable` as a parameter.
     checkP
-      (not $ all (`elem` (exeModules exe)) (exeModulesAutogen exe))
+      (not $ all (`elem` exeModules exe) (exeModulesAutogen exe))
       (PackageBuildImpossible $ AutogenNoOther cet)
     checkP
       ( not $
@@ -218,7 +218,7 @@ checkTestSuite
     checkP
       ( not $
           all
-            (`elem` (testModules ts))
+            (`elem` testModules ts)
             (testModulesAutogen ts)
       )
       (PackageBuildImpossible $ AutogenNoOther cet)
@@ -280,7 +280,7 @@ checkBenchmark
     checkP
       ( not $
           all
-            (`elem` (benchmarkModules bm))
+            (`elem` benchmarkModules bm)
             (benchmarkModulesAutogen bm)
       )
       (PackageBuildImpossible $ AutogenNoOther cet)

cabal-install-solver/src/Distribution/Solver/Modular/Preference.hs

@@ -135,7 +135,7 @@ preferPackagePreferences pcs =
     preferred pn opt =
       let PackagePreferences vrs _ _ = pcs pn
       in fromIntegral . negate . L.length $
-         L.filter (`checkVR` (version opt)) vrs
+         L.filter (`checkVR` version opt) vrs
 
     -- Prefer installed packages over non-installed packages.
     installed :: POption -> Weight

cabal-install/src/Distribution/Client/CmdOutdated.hs

@@ -395,7 +395,7 @@ type OutdatedDependency = OutdatedDependencyX Version
 -- | Convert a list of 'UserConstraint's to a 'Dependency' list.
 userConstraintsToDependencies :: [(UserConstraint, ConstraintSource)] -> [CandidateOutdatedDependency]
 userConstraintsToDependencies ucnstrs =
-  mapMaybe (\(uc, src) -> fmap (`mkCandidateOutdatedDependency` (ConfigSource src)) (packageConstraintToDependency . userToPackageConstraint $ uc)) ucnstrs
+  mapMaybe (\(uc, src) -> fmap (`mkCandidateOutdatedDependency` ConfigSource src) (packageConstraintToDependency . userToPackageConstraint $ uc)) ucnstrs
 
 -- | Read the list of dependencies from the freeze file.
 depsFromFreezeFile :: Verbosity -> IO [CandidateOutdatedDependency]

cabal-install/src/Distribution/Client/HttpUtils.hs

@@ -810,8 +810,8 @@ powershellTransport prog =
         parseResponse :: String -> IO (HttpCode, Maybe ETag)
         parseResponse x =
           case lines $ trim x of
-            (code : etagv : _) -> fmap (,Just etagv) $ parseCode code x
-            (code : _) -> fmap (,Nothing) $ parseCode code x
+            (code : etagv : _) -> (,Just etagv) <$> parseCode code x
+            (code : _) -> (,Nothing) <$> parseCode code x
             _ -> statusParseFail verbosity uri x
         parseCode :: String -> String -> IO HttpCode
         parseCode code x = case readMaybe code of

cabal-install/src/Distribution/Client/InstallPlan.hs

@@ -783,9 +783,9 @@ processingInvariant
   -> Bool
 processingInvariant plan (Processing processingSet completedSet failedSet) =
   -- All the packages in the three sets are actually in the graph
-  assert (Foldable.all (`Graph.member` (planGraph plan)) processingSet)
-    $ assert (Foldable.all (`Graph.member` (planGraph plan)) completedSet)
-    $ assert (Foldable.all (`Graph.member` (planGraph plan)) failedSet)
+  assert (Foldable.all (`Graph.member` planGraph plan) processingSet)
+    $ assert (Foldable.all (`Graph.member` planGraph plan) completedSet)
+    $ assert (Foldable.all (`Graph.member` planGraph plan) failedSet)
     $
     -- The processing, completed and failed sets are disjoint from each other
     assert (noIntersection processingSet completedSet)