simpler Container typeclass

1 files changed, 8 insertions, 3 deletions

diff --git a/lib/Numeric/LinearAlgebra/Tests/Instances.hs b/lib/Numeric/LinearAlgebra/Tests/Instances.hs
index bfe6871..ad59b25 100644
--- a/lib/Numeric/LinearAlgebra/Tests/Instances.hs
+++ b/lib/Numeric/LinearAlgebra/Tests/Instances.hs
@@ -22,12 +22,11 @@ module Numeric.LinearAlgebra.Tests.Instances(
     SqWC(..),   rSqWC, cSqWC,
     PosDef(..), rPosDef, cPosDef,
     Consistent(..), rConsist, cConsist,
-    RM,CM, rM,cM
+    RM,CM, rM,cM,
+    FM,ZM, fM,zM
 ) where
 
 
-
-
 import Numeric.LinearAlgebra
 import Control.Monad(replicateM)
 #include "quickCheckCompat.h"
@@ -212,9 +211,15 @@ instance (Field a, Arbitrary a) => Arbitrary (Consistent a) where
 
 type RM = Matrix Double
 type CM = Matrix (Complex Double)
+type FM = Matrix Float
+type ZM = Matrix (Complex Float)
+
 
 rM m = m :: RM
 cM m = m :: CM
+fM m = m :: FM
+zM m = m :: ZM
+
 
 rHer (Her m) = m :: RM
 cHer (Her m) = m :: CM