diff options
| author | Alberto Ruiz <aruiz@um.es> | 2014-04-23 14:19:34 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2014-04-23 14:19:34 +0200 |
| commit | 7c5adb83c9cb632c39eb2d844a1496e2a7a23e8b (patch) | |
| tree | ec80d2d2533fcf1a2c1f1f021bc0669767ec7817 /lib/Numeric/LinearAlgebra/Util | |
| parent | eaa21e363a62274b3b457556d8f41b10cc335513 (diff) | |
join -> vjoin
Diffstat (limited to 'lib/Numeric/LinearAlgebra/Util')
| -rw-r--r-- | lib/Numeric/LinearAlgebra/Util/Convolution.hs | 2 |
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] | |||
| 46 | conv ker v = corr ker' v' | 46 | conv 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 | ||