new rnf instances

1 files changed, 6 insertions, 6 deletions

diff --git a/lib/Numeric/LinearAlgebra/Instances.hs b/lib/Numeric/LinearAlgebra/Instances.hs
index 80ee171..3122a3d 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