Enable 'Use unless' hint.

google · Oct 4, 2024 · 3e4dbbf · 3e4dbbf
1 parent 24276fe
commit 3e4dbbf
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/.hlint.yaml b/.hlint.yaml
@@ -31,4 +31,3 @@
 - ignore: {name: "Use maybe"} # 1 hint
 - ignore: {name: "Use newtype instead of data"} # 1 hint
 - ignore: {name: "Use replicate"} # 1 hint
-- ignore: {name: "Use unless"} # 1 hint
diff --git a/proto-lens-setup/src/Data/ProtoLens/Setup.hs b/proto-lens-setup/src/Data/ProtoLens/Setup.hs
@@ -24,7 +24,7 @@ module Data.ProtoLens.Setup
     , generateProtos
     ) where
 
-import Control.Monad (filterM, forM_, when)
+import Control.Monad (filterM, forM_, unless, when)
 import qualified Data.ByteString as BS
 import qualified Data.Map as Map
 import Data.Maybe (maybeToList)
@@ -274,7 +274,7 @@ copyIfDifferent sourcePath targetPath = do
                 targetContents <- BS.readFile targetPath
                 return (sourceContents == targetContents)
     -- Do the move if necessary.
-    when (not identical) $ do
+    unless identical $ do
         createDirectoryIfMissing True (takeDirectory targetPath)
         copyFile sourcePath targetPath