summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Matrix.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/Packed/Matrix.hs')
-rw-r--r--lib/Data/Packed/Matrix.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Data/Packed/Matrix.hs b/lib/Data/Packed/Matrix.hs
index 1b67820..ab02670 100644
--- a/lib/Data/Packed/Matrix.hs
+++ b/lib/Data/Packed/Matrix.hs
@@ -103,7 +103,7 @@ breakAt c l = (a++[c],tail b) where
103joinVert :: Element t => [Matrix t] -> Matrix t 103joinVert :: Element t => [Matrix t] -> Matrix t
104joinVert ms = case common cols ms of 104joinVert ms = case common cols ms of
105 Nothing -> error "(impossible) joinVert on matrices with different number of columns" 105 Nothing -> error "(impossible) joinVert on matrices with different number of columns"
106 Just c -> reshape c $ join (map flatten ms) 106 Just c -> reshape c $ vjoin (map flatten ms)
107 107
108-- | creates a matrix from a horizontal list of matrices 108-- | creates a matrix from a horizontal list of matrices
109joinHoriz :: Element t => [Matrix t] -> Matrix t 109joinHoriz :: Element t => [Matrix t] -> Matrix t