Follow hlint suggestion: Use infix for isPrefixOf

philderbeast · philderbeast · commit 709ce46dc9c0 · 2025-08-09T15:20:22.000-04:00
diff --git a/cabal-install/tests/UnitTests/Distribution/Client/VCS.hs b/cabal-install/tests/UnitTests/Distribution/Client/VCS.hs
@@ -745,7 +745,7 @@ getDirectoryContentsRecursive ignore dir0 dir = do
         isdir <- doesDirectoryExist (dir0 </> dir </> entry)
         return (dir </> entry, isdir)
       | entry <- entries
-      , not (isPrefixOf "." entry)
+      , not ("." `isPrefixOf` entry)
       , (dir </> entry) `Set.notMember` ignore
       ]
   let subdirs = [d | (d, True) <- entries']

Original file line number	Diff line number	Diff line change
`@@ -745,7 +745,7 @@ getDirectoryContentsRecursive ignore dir0 dir = do`
`745`	`745`	`isdir <- doesDirectoryExist (dir0 </> dir </> entry)`
`746`	`746`	`return (dir </> entry, isdir)`
`747`	`747`	`\| entry <- entries`
`748`		`- , not (isPrefixOf "." entry)`
	`748`	+ , not ("." `isPrefixOf` entry)
`749`	`749`	, (dir </> entry) `Set.notMember` ignore
`750`	`750`	`]`
`751`	`751`	`let subdirs = [d \| (d, True) <- entries']`