From 7c5adb83c9cb632c39eb2d844a1496e2a7a23e8b Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 23 Apr 2014 14:19:34 +0200 Subject: join -> vjoin --- lib/Data/Packed/Internal/Matrix.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Data/Packed/Internal/Matrix.hs') diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 7504b39..5e6e649 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs @@ -154,7 +154,7 @@ toLists m = splitEvery (cols m) . toList . flatten $ m fromRows :: Element t => [Vector t] -> Matrix t fromRows vs = case compatdim (map dim vs) of Nothing -> error "fromRows applied to [] or to vectors with different sizes" - Just c -> reshape c . Data.Packed.Internal.Vector.join . map (adapt c) $ vs + Just c -> reshape c . vjoin . map (adapt c) $ vs where adapt c v | dim v == c = v | otherwise = constantD (v@>0) c -- cgit v1.2.3