From c1464d95f0eb03c0fbb728f5cc49c6548b23ef10 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Thu, 10 Dec 2009 11:22:05 +0000 Subject: remove NFData instances --- lib/Numeric/LinearAlgebra/Instances.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lib') diff --git a/lib/Numeric/LinearAlgebra/Instances.hs b/lib/Numeric/LinearAlgebra/Instances.hs index 3122a3d..04bbd68 100644 --- a/lib/Numeric/LinearAlgebra/Instances.hs +++ b/lib/Numeric/LinearAlgebra/Instances.hs @@ -27,7 +27,7 @@ import Data.List(transpose,intersperse) import Foreign(Storable) import Data.Monoid import Data.Packed.Internal.Vector -import Control.Parallel.Strategies +-- import Control.Parallel.Strategies ------------------------------------------------------------------ @@ -199,8 +199,8 @@ instance (Storable a) => Monoid (Vector a) where --------------------------------------------------------------- -instance (NFData a, Storable a) => NFData (Vector a) where - rnf = rnf . (@>0) - -instance (NFData a, Element a) => NFData (Matrix a) where - rnf = rnf . flatten +-- instance (NFData a, Storable a) => NFData (Vector a) where +-- rnf = rnf . (@>0) +-- +-- instance (NFData a, Element a) => NFData (Matrix a) where +-- rnf = rnf . flatten -- cgit v1.2.3