eeva/tensorflow-haskell
1
0
Fork 0
mirror of https://github.com/tensorflow/haskell.git synced 2024-06-02 19:13:34 +02:00
Code Issues Releases Wiki Activity

replacing unused pattern variable to fix -Wunused-matches warning.

Browse Source
This commit is contained in:
Jonathan Kochems 2017-07-23 20:57:48 +01:00
parent 9063b24db1
commit 065152160a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tensorflow-ops/src/TensorFlow/Gradient.hs
View File

@ -458,7 +458,7 @@ opGrad "ReluGrad" _ [_, toT -> x ] [dz] = [Just $ reluGrad dz x, Just $ CoreOps.
-- The incoming gradient from backpropagation is
-- simply forwarded split across input tensors.
-- Forwarded gradients have shapes s = [s1, ..., sm].
opGrad "Concat" nodedef _ix [dy]
opGrad "Concat" _ _ix [dy]
| length x == 1 = Nothing : [Just $ expr dy]
| otherwise = Nothing : map Just (dx `reshapeZip` s)
where x :: [Tensor Build a]