From 4029bf2f48c7e0564fe23de8dc74409d1206ca0d Mon Sep 17 00:00:00 2001 From: Reiner Pope Date: Sat, 7 Jan 2012 11:22:59 +1100 Subject: Replace divMod with quotRem in matrixFromVector --- lib/Data/Packed/Internal/Matrix.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib') diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index d4b0bc1..a39c0f0 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs @@ -207,12 +207,12 @@ atM' MF {irows = r, fdat = v} i j = v `at'` (j*r+i) ------------------------------------------------------------------ matrixFromVector RowMajor c v = MC { irows = r, icols = c, cdat = v } - where (d,m) = dim v `divMod` c + where (d,m) = dim v `quotRem` c r | m==0 = d | otherwise = error "matrixFromVector" matrixFromVector ColumnMajor c v = MF { irows = r, icols = c, fdat = v } - where (d,m) = dim v `divMod` c + where (d,m) = dim v `quotRem` c r | m==0 = d | otherwise = error "matrixFromVector" -- cgit v1.2.3