summaryrefslogtreecommitdiff
path: root/lib/Numeric/LinearAlgebra/Util/Convolution.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2014-04-23 14:19:34 +0200
committerAlberto Ruiz <aruiz@um.es>2014-04-23 14:19:34 +0200
commit7c5adb83c9cb632c39eb2d844a1496e2a7a23e8b (patch)
treeec80d2d2533fcf1a2c1f1f021bc0669767ec7817 /lib/Numeric/LinearAlgebra/Util/Convolution.hs
parenteaa21e363a62274b3b457556d8f41b10cc335513 (diff)
join -> vjoin
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Util/Convolution.hs')
-rw-r--r--lib/Numeric/LinearAlgebra/Util/Convolution.hs2
1 files changed, 1 insertions, 1 deletions
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]
46conv ker v = corr ker' v' 46conv ker v = corr ker' v'
47 where 47 where
48 ker' = (flatten.fliprl.asRow) ker 48 ker' = (flatten.fliprl.asRow) ker
49 v' | dim ker > 1 = join [z,v,z] 49 v' | dim ker > 1 = vjoin [z,v,z]
50 | otherwise = v 50 | otherwise = v
51 z = constant 0 (dim ker -1) 51 z = constant 0 (dim ker -1)
52 52