diff --git a/.hlint.yaml b/.hlint.yaml
index 0ac5543..d409634 100644
--- a/.hlint.yaml
+++ b/.hlint.yaml
@@ -1 +1,2 @@
 - ignore: {name: "Use lambda-case"}
+- ignore: {name: "Redundant if"}
diff --git a/Test/Tasty/Bench.hs b/Test/Tasty/Bench.hs
index 8d8c550..28768e8 100644
--- a/Test/Tasty/Bench.hs
+++ b/Test/Tasty/Bench.hs
@@ -1242,7 +1242,7 @@ svgRender pairs = header ++ concat (zipWith
   pairs) ++ footer
   where
     dropAllPrefix
-      | all ("All." `isPrefixOf`) (map fst pairs) = drop 4
+      | all (("All." `isPrefixOf`) . fst) pairs = drop 4
       | otherwise = id
 
     l = genericLength pairs