Permalink
Browse files

Fixed _row to return a list of the correct length

  • Loading branch information...
1 parent 85de4e8 commit f24a801d746a52ecc8547f52a4163b9c634c77b0 @tmakarios tmakarios committed Jan 14, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Numeric/Matrix.hs
View
2 src/Numeric/Matrix.hs
@@ -577,7 +577,7 @@ _at :: (IArray a (u Int e), IArray u e)
_at arr (i,j) = arr ! i ! j
_row, _col :: (IArray a (u Int e), IArray u e) => Int -> a Int (u Int e) -> [e]
-_row i arr = let row = arr ! i in [ row ! j | j <- [1..(snd (bounds arr))] ]
+_row i arr = let row = arr ! i in [ row ! j | j <- [1..(snd (bounds row))] ]
_col j arr = [ arr ! i ! j | i <- [1..(snd (bounds arr))] ]
_toList :: (IArray a e) => Array Int (a Int e) -> [[e]]

0 comments on commit f24a801

Please sign in to comment.