summaryrefslogtreecommitdiff
path: root/packages/hmatrix/src/Numeric/ContainerBoot.hs
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2014-05-14 14:18:30 +0200
committerAlberto Ruiz <aruiz@um.es>2014-05-14 14:18:30 +0200
commitd46df392d07779fd83b01b0e9e71e5e17a36567a (patch)
tree605d0ea93101e11a72ce464825def7a499f852a6 /packages/hmatrix/src/Numeric/ContainerBoot.hs
parent551cf7498c33bc0948bb4cb8444ae6f8af7278ea (diff)
undeprecate dot, fix <.>
Diffstat (limited to 'packages/hmatrix/src/Numeric/ContainerBoot.hs')
-rw-r--r--packages/hmatrix/src/Numeric/ContainerBoot.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/hmatrix/src/Numeric/ContainerBoot.hs b/packages/hmatrix/src/Numeric/ContainerBoot.hs
index ef21763..bb65166 100644
--- a/packages/hmatrix/src/Numeric/ContainerBoot.hs
+++ b/packages/hmatrix/src/Numeric/ContainerBoot.hs
@@ -403,7 +403,7 @@ emptyVal f v =
403 else 0 403 else 0
404 404
405-- FIXME remove unused C wrappers 405-- FIXME remove unused C wrappers
406-- | (unconjugated) dot product 406-- | unconjugated dot product
407udot :: Product e => Vector e -> Vector e -> e 407udot :: Product e => Vector e -> Vector e -> e
408udot u v 408udot u v
409 | dim u == dim v = val (asRow u `multiply` asColumn v) 409 | dim u == dim v = val (asRow u `multiply` asColumn v)