From 49df400d892d4f51cbe724f5677aec70753b0408 Mon Sep 17 00:00:00 2001 From: Khudyakov Alexey Date: Wed, 29 Sep 2010 12:35:11 +0000 Subject: [hlint] Remove redundant brackets and $'s --- lib/Data/Packed/Random.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Data/Packed/Random.hs') diff --git a/lib/Data/Packed/Random.hs b/lib/Data/Packed/Random.hs index 14d91ea..4b229f0 100644 --- a/lib/Data/Packed/Random.hs +++ b/lib/Data/Packed/Random.hs @@ -63,4 +63,4 @@ meanCov x = (med,cov) where med = konst k r `vXm` x meds = konst 1 r `outer` med xc = x `sub` meds - cov = flip scale (trans xc `mXm` xc) (recip (fromIntegral (r-1))) + cov = scale (recip (fromIntegral (r-1))) (trans xc `mXm` xc) -- cgit v1.2.3