Bodigrim/tasty-bench
1
1
Fork 0
mirror of https://github.com/Bodigrim/tasty-bench.git synced 2024-11-27 12:43:34 +03:00
Code Issues Projects Releases Wiki Activity

Fix hlint suggestions

Browse Source
This commit is contained in:
Bodigrim 2021-04-20 20:28:34 +01:00
parent ce734706a9
commit a6096c6342
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.hlint.yaml
View File

@ -1 +1,2 @@
- ignore: {name: "Use lambda-case"} - ignore: {name: "Use lambda-case"}
- ignore: {name: "Redundant if"}

2
Test/Tasty/Bench.hs
View File

@ -1242,7 +1242,7 @@ svgRender pairs = header ++ concat (zipWith
pairs) ++ footer pairs) ++ footer
where where
dropAllPrefix dropAllPrefix
| all ("All." `isPrefixOf`) (map fst pairs) = drop 4 | all (("All." `isPrefixOf`) . fst) pairs = drop 4
| otherwise = id | otherwise = id
l = genericLength pairs l = genericLength pairs