From 04acd2ad79f7fddb1e6fa9029638378ac9fa8a66 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 3 Jul 2015 14:39:29 +0200 Subject: fix subMatrix tot and test --- packages/base/src/Internal/Matrix.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'packages/base/src/Internal/Matrix.hs') diff --git a/packages/base/src/Internal/Matrix.hs b/packages/base/src/Internal/Matrix.hs index a7fcb47..792fe35 100644 --- a/packages/base/src/Internal/Matrix.hs +++ b/packages/base/src/Internal/Matrix.hs @@ -365,6 +365,7 @@ subMatrix :: Element a -> Matrix a -- ^ input matrix -> Matrix a -- ^ result subMatrix (r0,c0) (rt,ct) m + | rt <= 0 || ct <= 0 = matrixFromVector RowMajor (max 0 rt) (max 0 ct) (fromList []) | 0 <= r0 && 0 <= rt && r0+rt <= rows m && 0 <= c0 && 0 <= ct && c0+ct <= cols m = res | otherwise = error $ "wrong subMatrix "++show ((r0,c0),(rt,ct))++" of "++shSize m -- cgit v1.2.3