more defined (|>) and (><) as suggested by Tracy Wadleigh

1 files changed, 4 insertions, 12 deletions

diff --git a/lib/Data/Packed/Matrix.hs b/lib/Data/Packed/Matrix.hs
index 5a73c06..0b50d8a 100644
--- a/lib/Data/Packed/Matrix.hs
+++ b/lib/Data/Packed/Matrix.hs
@@ -16,7 +16,7 @@
 module Data.Packed.Matrix (
     Element,
     Matrix,rows,cols,
-    (><), (>|<),
+    (><),
     trans,
     reshape, flatten,
     fromLists, toLists,
@@ -118,15 +118,8 @@ ident n = diag (constant 1 n)
 
 This is the format produced by the instances of Show (Matrix a), which
 can also be used for input.
--}
-(><) :: (Element a) => Int -> Int -> [a] -> Matrix a
-r >< c = f where
-    f l | dim v == r*c = matrixFromVector RowMajor c v
-        | otherwise    = error $ "inconsistent list size = "
-                                 ++show (dim v) ++" in ("++show r++"><"++show c++")"
-        where v = fromList l
 
-{- | Like '(><)', but explicitly truncates the list, so that it can
+The input list is explicitly truncated, so that it can
 safely be used with lists that are too long (like infinite lists).
 
 Example:
@@ -136,10 +129,9 @@ Example:
  [ 1.0, 2.0, 3.0
  , 4.0, 5.0, 6.0 ]@
 
-Effectively, a more defined version of '(><)'.
 -}
-(>|<) :: (Element a) => Int -> Int -> [a] -> Matrix a
-r >|< c = f where
+(><) :: (Element a) => Int -> Int -> [a] -> Matrix a
+r >< c = f where
     f l | dim v == r*c = matrixFromVector RowMajor c v
         | otherwise    = error $ "inconsistent list size = "
                                  ++show (dim v) ++" in ("++show r++"><"++show c++")"