diff options
Diffstat (limited to 'lib/Data/Packed/Matrix.hs')
-rw-r--r-- | lib/Data/Packed/Matrix.hs | 2 |
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 | |||
103 | joinVert :: Element t => [Matrix t] -> Matrix t | 103 | joinVert :: Element t => [Matrix t] -> Matrix t |
104 | joinVert ms = case common cols ms of | 104 | joinVert 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 |
109 | joinHoriz :: Element t => [Matrix t] -> Matrix t | 109 | joinHoriz :: Element t => [Matrix t] -> Matrix t |