Enable Move brackets to avoid $ hint for HLint.

.hlint.yaml

@@ -14,7 +14,6 @@
 - ignore: {name: "Avoid lambda"} # 1 hint
 - ignore: {name: "Eta reduce"} # 1 hint
 - ignore: {name: "Fuse foldr/map"} # 1 hint
-- ignore: {name: "Move brackets to avoid $"} # 8 hints
 - ignore: {name: "Use :"} # 2 hints
 - ignore: {name: "Use <$"} # 1 hint
 - ignore: {name: "Use <$>"} # 1 hint

proto-lens-protoc/app/Data/ProtoLens/Compiler/Generate.hs

@@ -99,7 +99,7 @@ generateModule modName fdesc imports publicImports definitions importedEnv servi
                     ++ map importQualified (imports List.\\ publicImports)
                     ++ map import' publicImports)
                 [])
-          $ (concatMap generateDecls $ Map.toList definitions)
+          $ concatMap generateDecls (Map.toList definitions)
          ++ map uncommented (concatMap (generateServiceDecls env) services)
          ++ map uncommented packedFileDescriptorProto
       , CommentedModule pragmas
@@ -231,7 +231,7 @@ messageComment fieldModName n fields =
                  (moduleNameStrToString fieldModName)
                  (occNameStrToString $ nameFromSymbol $ lensSymbol l))
              Outputable.<>
-                 (Outputable.ppr $ var "Lens'" @@ t @@ lensFieldType l)
+                 Outputable.ppr (var "Lens'" @@ t @@ lensFieldType l)
              Outputable.<> Outputable.char '@'
     t = var (unqual n)
 
@@ -422,15 +422,15 @@ generatePrisms env oneofInfo =
                -- Sum type constructor
             @@ var (unqual consName)
                -- Case deconstruction
-            @@ (lambda [bvar "p__"] $
+            @@ lambda [bvar "p__"] (
                     case' (var "p__") $
                        [ match [conP (unqual consName) [bvar "p__val"]]
                              $ var "Prelude.Just" @@ var "p__val"
                        ]
                        -- We want to generate the otherwise case
                        -- depending on the amount of sum type cases there are
                        ++ otherwiseCase
-               )
+                    )
         generatePrism :: [RawMatch] -> OneofCase -> [HsDecl']
         generatePrism otherwiseCase oneofCase =
             let consName = caseConstructorName oneofCase

proto-lens-protoc/app/Data/ProtoLens/Compiler/Generate/Encoding.hs

@@ -629,7 +629,7 @@ unsafeLiftIO' = var "Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO"
 -- | Returns an expression of type @Parser a@ for the given field.
 parseField :: FieldInfo -> HsExpr'
 parseField f = var "Data.ProtoLens.Encoding.Bytes.<?>"
-                    @@ (parseFieldType $ fieldInfoEncoding f)
+                    @@ parseFieldType (fieldInfoEncoding f)
                     @@ string n
   where
     n = Text.unpack (fieldDescriptor f ^. #name)

proto-lens-protoc/app/protoc-gen-haskell.hs

@@ -73,7 +73,7 @@ makeResponse dflags prog request = let
                ]
     preamble = defMessage
                & #supportedFeatures .~
-                 (foldl (.|.) zeroBits $ fmap (toEnum . fromEnum) features)
+                 foldl (.|.) zeroBits (fmap (toEnum . fromEnum) features)
                -- Do not process actual Protobuf Editions files yet.
                & #minimumEdition .~ fromIntegral (fromEnum EDITION_PROTO2)
                & #maximumEdition .~ fromIntegral (fromEnum EDITION_2023)

proto-lens/src/Data/ProtoLens/Encoding/Bytes.hs

@@ -95,9 +95,9 @@ getVarIntH :: Handle -> ExceptT String IO Word64
 getVarIntH h = do
     buf <- liftIO malloc
     let loopStart !n !s =
-          (liftIO $ hGetBuf h buf 1) >>=
+          liftIO (hGetBuf h buf 1) >>=
           \case
-            1 -> (liftIO $ peek buf) >>=
+            1 -> liftIO (peek buf) >>=
                  getVarIntLoopFinish loopStart n s
             _ -> throwE "Unexpected end of file"
     res <- loopStart 0 1

proto-lens/tests/parser_test.hs

@@ -73,7 +73,7 @@ testFailure =
 testIsolate :: [TestTree]
 testIsolate =
     [ testProperty "many" $ \bs bs' ->
-        runParser ((,) <$> (isolate (length bs) $ manyTillEnd getWord8) <*>
+        runParser ((,) <$> isolate (length bs) (manyTillEnd getWord8) <*>
                         manyTillEnd getWord8)
             (B.pack (bs ++ bs'))
             == Right (bs, bs')