From 7c5adb83c9cb632c39eb2d844a1496e2a7a23e8b Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 23 Apr 2014 14:19:34 +0200 Subject: join -> vjoin --- lib/Numeric/LinearAlgebra/Util/Convolution.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Numeric/LinearAlgebra/Util') diff --git a/lib/Numeric/LinearAlgebra/Util/Convolution.hs b/lib/Numeric/LinearAlgebra/Util/Convolution.hs index 32cb188..be9b1eb 100644 --- a/lib/Numeric/LinearAlgebra/Util/Convolution.hs +++ b/lib/Numeric/LinearAlgebra/Util/Convolution.hs @@ -46,7 +46,7 @@ fromList [-1.0,0.0,1.0] conv ker v = corr ker' v' where ker' = (flatten.fliprl.asRow) ker - v' | dim ker > 1 = join [z,v,z] + v' | dim ker > 1 = vjoin [z,v,z] | otherwise = v z = constant 0 (dim ker -1) -- cgit v1.2.3