1 files changed, 1 insertions, 1 deletions

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)