From a3d3e0bd63a1c8215d4138195d128201ffa424e8 Mon Sep 17 00:00:00 2001 From: Khudyakov Alexey Date: Wed, 29 Sep 2010 11:47:21 +0000 Subject: [hlint] replace 'and . map f' with 'all f' --- lib/Numeric/LinearAlgebra/Tests/Properties.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Numeric/LinearAlgebra/Tests/Properties.hs') diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs index a35f591..b5f0501 100644 --- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs +++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs @@ -159,7 +159,7 @@ svdProp4 m' = m |~| u <> real (diag s) <> trans v m = fromBlocks [[m'],[m']] r = rank m' -svdProp5a m = and (map (s1|~|) [s2,s3,s4,s5,s6]) where +svdProp5a m = all (s1|~|) [s2,s3,s4,s5,s6] where s1 = svR m s2 = svRd m (_,s3,_) = svdR m @@ -167,7 +167,7 @@ svdProp5a m = and (map (s1|~|) [s2,s3,s4,s5,s6]) where (_,s5,_) = thinSVDR m (_,s6,_) = thinSVDRd m -svdProp5b m = and (map (s1|~|) [s2,s3,s4,s5,s6]) where +svdProp5b m = all (s1|~|) [s2,s3,s4,s5,s6] where s1 = svC m s2 = svCd m (_,s3,_) = svdC m -- cgit v1.2.3