Clean hlint and cabal warnings

2026-10-02 15:42:12 +03:00
parent 449f404464
commit 7bd0a652cb
16 changed files with 25 additions and 27 deletions
@@ -70,7 +70,7 @@ spec = describe "Flags" $ do
        n <- forAll $ Gen.int (Range.linear 1 50)
        liftIO $ withTempDirectory "/tmp" "flags-spec" $ \dir -> do
          flags <- runNoLoggingT (loadFlags dir ["x"])
-          mapConcurrently_ (\i -> setEnabled flags "x" (even i)) [1 .. n]
+          mapConcurrently_ (setEnabled flags "x" . even) [1 .. n]
          m <- allFlags flags
          decoded <- decodeFileStrict (dir <> "/handlers.json")
          (decoded :: Maybe (Map Text Bool)) `shouldBe` Just m