diff options
| -rw-r--r-- | src/ForwardAD/DualNumbers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ForwardAD/DualNumbers.hs b/src/ForwardAD/DualNumbers.hs index 0a08926..e8b140e 100644 --- a/src/ForwardAD/DualNumbers.hs +++ b/src/ForwardAD/DualNumbers.hs @@ -79,7 +79,7 @@ dop = \case EPair ext (recip' t x) (mul t (neg t (recip' t (mul t x x))) dx)) OExp t -> floatingDual t $ unFloat (\(x, dx) -> - EPair ext (EOp ext (OExp t) x) (EOp ext (OExp t) dx)) + EPair ext (EOp ext (OExp t) x) (mul t (EOp ext (OExp t) x) dx)) OLog t -> floatingDual t $ unFloat (\(x, dx) -> EPair ext (EOp ext (OLog t) x) (mul t (recip' t x) dx)) |