diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-22 10:24:03 +0100 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-22 10:24:03 +0100 |
| commit | 9abd9c73ec53250dec5783a188229712639aaa94 (patch) | |
| tree | 7ef44557b9e48f90125152710786a778f0e29b94 /ops/Data/Array/Strided/Arith/Internal.hs | |
| parent | 126a22c5b453d5830d2a5389b55662eb84a835f6 (diff) | |
Add a few more GHC warnings and fix all offenders
Diffstat (limited to 'ops/Data/Array/Strided/Arith/Internal.hs')
| -rw-r--r-- | ops/Data/Array/Strided/Arith/Internal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ops/Data/Array/Strided/Arith/Internal.hs b/ops/Data/Array/Strided/Arith/Internal.hs index a99b913..6aa111a 100644 --- a/ops/Data/Array/Strided/Arith/Internal.hs +++ b/ops/Data/Array/Strided/Arith/Internal.hs @@ -200,7 +200,7 @@ simplifyArray :: Array n a -> r) -> r simplifyArray array k - | let revDims = map (<0) (arrStrides array) + | let revDims = map (< 0) (arrStrides array) , Unreplicated array' unrepSize rereplicate <- unreplicateStrides (arrayRevDims revDims array) = k array' unrepSize |