From a6096c63421c435eaf9481e53bb0c58b728b704e Mon Sep 17 00:00:00 2001
From: Bodigrim <andrew.lelechenko@gmail.com>
Date: Tue, 20 Apr 2021 20:28:34 +0100
Subject: [PATCH] Fix hlint suggestions

---
 .hlint.yaml         | 1 +
 Test/Tasty/Bench.hs | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

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