From 830164c7c34d874aa66754206be956f85456842f Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Mon, 18 Jan 2010 08:54:22 +0000
Subject: scalar moved to Linear and equal used for ==

---
 lib/Data/Packed.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'lib/Data/Packed.hs')

diff --git a/lib/Data/Packed.hs b/lib/Data/Packed.hs
index 7ffdd0b..7d6d200 100644
--- a/lib/Data/Packed.hs
+++ b/lib/Data/Packed.hs
@@ -34,7 +34,6 @@ class (Element e) => Container c e where
     conj        :: RealFloat e => c (Complex e) -> c (Complex e)
     real        :: c Double -> c e
     complex     :: c e -> c (Complex Double)
-    scalar      :: e -> c e
 
 instance Container Vector Double where
     toComplex = Data.Packed.Internal.toComplex
@@ -43,7 +42,6 @@ instance Container Vector Double where
     conj = Data.Packed.Internal.conj
     real = id
     complex = Data.Packed.comp
-    scalar x = fromList [x]
 
 instance Container Vector (Complex Double) where
     toComplex = undefined -- can't match
@@ -52,7 +50,6 @@ instance Container Vector (Complex Double) where
     conj = undefined
     real = Data.Packed.comp
     complex = id
-    scalar x = fromList [x]
 
 instance Container Matrix Double where
     toComplex = uncurry $ liftMatrix2 $ curry Data.Packed.toComplex
@@ -63,7 +60,6 @@ instance Container Matrix Double where
     conj = liftMatrix Data.Packed.Internal.conj
     real = id
     complex = Data.Packed.comp
-    scalar x = (1><1) [x]
 
 instance Container Matrix (Complex Double) where
     toComplex = undefined
@@ -72,7 +68,6 @@ instance Container Matrix (Complex Double) where
     conj = undefined
     real = Data.Packed.comp
     complex = id
-    scalar x = (1><1) [x]
 
 
 -- | converts a real vector into a complex representation (with zero imaginary parts)
-- 
cgit v1.2.3