diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-11-10 22:31:56 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-11-10 22:31:56 +0100 |
| commit | cd135319f65f40a554d864b2a878a4ef44043a98 (patch) | |
| tree | c51a5100b356ff4bf1a41a9b4b269faac3326850 /src/CHAD/ForwardAD.hs | |
| parent | 57eb321eaeabc53c8c8b83d0554d8a8cca6eed76 (diff) | |
hlint cleanup
Diffstat (limited to 'src/CHAD/ForwardAD.hs')
| -rw-r--r-- | src/CHAD/ForwardAD.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/CHAD/ForwardAD.hs b/src/CHAD/ForwardAD.hs index 7126e10..0ebc244 100644 --- a/src/CHAD/ForwardAD.hs +++ b/src/CHAD/ForwardAD.hs @@ -7,6 +7,7 @@ module CHAD.ForwardAD where import Data.Bifunctor (bimap) +import Data.Foldable (fold) import System.IO.Unsafe -- import Debug.Trace @@ -89,7 +90,7 @@ tanScalars (STLEither a _) (Just (Left x)) = tanScalars a x tanScalars (STLEither _ b) (Just (Right y)) = tanScalars b y tanScalars (STMaybe _) Nothing = [] tanScalars (STMaybe t) (Just x) = tanScalars t x -tanScalars (STArr _ t) x = foldMap id $ arrayMap (tanScalars t) x +tanScalars (STArr _ t) x = fold $ arrayMap (tanScalars t) x tanScalars (STScal STI32) _ = [] tanScalars (STScal STI64) _ = [] tanScalars (STScal STF32) x = [realToFrac x] |