Follow hlint suggestion: redundant bracket

Author: philderbeast

.hlint.yaml

@@ -5,7 +5,6 @@
 - ignore: {name: "Hoist not"} # 16 hints
 - ignore: {name: "Move filter"} # 4 hints
 - ignore: {name: "Redundant $!"} # 3 hints
-- ignore: {name: "Redundant bracket"} # 4 hints
 - ignore: {name: "Redundant guard"} # 1 hint
 - ignore: {name: "Redundant if"} # 6 hints
 - ignore: {name: "Redundant lambda"} # 16 hints

Cabal/src/Distribution/Simple/Register.hs

@@ -717,7 +717,7 @@ relocatableInstalledPackageInfo pkg abi_hash lib lbi clbi pkgroot =
     bi = libBuildInfo lib
 
     installDirs =
-      (("${pkgroot}" </>) . shortRelativePath (getSymbolicPath pkgroot)) <$> absoluteComponentInstallDirs pkg lbi (componentUnitId clbi) NoCopyDest
+      ("${pkgroot}" </>) . shortRelativePath (getSymbolicPath pkgroot) <$> absoluteComponentInstallDirs pkg lbi (componentUnitId clbi) NoCopyDest
 
 -- -----------------------------------------------------------------------------
 -- Unregistration

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

@@ -300,7 +300,8 @@ pruneInstallPlan installPlan pkgSpecifiers =
 freezePackages :: Package pkg => Verbosity -> GlobalFlags -> [pkg] -> IO ()
 freezePackages verbosity globalFlags pkgs = do
   pkgEnv <-
-    (createPkgEnv . addFrozenConstraints) <$> loadUserConfig
+    createPkgEnv . addFrozenConstraints
+      <$> loadUserConfig
         verbosity
         ""
         (flagToMaybe . globalConstraintsFile $ globalFlags)

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

@@ -1271,7 +1271,7 @@ getPackageSourceHashes verbosity withRepoCtx solverPlan = do
         --
         hashesFromRepoMetadata <-
           Sec.uncheckClientErrors -- TODO: [code cleanup] wrap in our own exceptions
-            ( (Map.fromList . concat)
+            ( Map.fromList . concat
                 <$> sequence
                   -- Reading the repo index is expensive so we group the packages by repo
                   [ repoContextWithSecureRepo repoctx repo $ \secureRepo ->

cabal-install/tests/UnitTests/Distribution/Client/InstallPlan.hs

@@ -236,9 +236,8 @@ arbitraryInstallPlan
   -> Gen (InstallPlan.GenericInstallPlan ipkg srcpkg)
 arbitraryInstallPlan mkIPkg mkSrcPkg ipkgProportion graph = do
   (ipkgvs, srcpkgvs) <-
-    ( bimap (map fst) (map fst)
-          . partition snd
-      ) <$> sequenceA
+    bimap (map fst) (map fst) . partition snd
+      <$> sequenceA
         [ do
           isipkg <-
             if isRoot