Follow hlint suggestion: redundant lambda.
commit766e9d7407359bd0c3a7b1f5d9e22d7a058c8c97
authorPhil de Joux <philderbeast@gmail.com>
dateSun 16 Oct 2022, 15:32 (4 years ago)
parentf921137
.hlint.yaml−1
@@ -4,7 +4,6 @@
44- ignore: {name: "Redundant $"} # 21 hints
55- ignore: {name: "Redundant bracket"} # 118 hints
66- ignore: {name: "Redundant if"} # 1 hint
7−- ignore: {name: "Redundant lambda"} # 1 hint
87- ignore: {name: "Use asks"} # 13 hints
98- ignore: {name: "Use newtype instead of data"} # 1 hint
109- ignore: {name: "Use null"} # 3 hints
test/Test.hs+1−1
@@ -618,7 +618,7 @@ filterJobs Web.Filter{filterStatuses, filterCreatedAfter, filterCreatedBefore, f
618618 Web.OrdLockedAt -> (comparing jobLockedAt)
619619 Web.OrdStatus -> (comparing jobStatus)
620620 Web.OrdJobType -> comparing Job.defaultJobType
621− resultOrder fn = \x y -> case fn x y of
621+ resultOrder fn x y = case fn x y of
622622 EQ -> compare (Down $ jobId x) (Down $ jobId y)
623623 LT -> case dir of
624624 Web.Asc -> LT