diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-20 12:09:56 +0100 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2026-02-12 10:16:29 +0100 |
| commit | 5cd6f90954cf67da6de03c6f255d0f4442a71ec5 (patch) | |
| tree | 581639f91ccc5ac00143f3b4ae27b2647f381789 /src/Data/Array/Nested | |
| parent | 53cb4202d6749ab54fc7650292c9823008587722 (diff) | |
Add a potentialy helpful bang for consistency
Diffstat (limited to 'src/Data/Array/Nested')
| -rw-r--r-- | src/Data/Array/Nested/Mixed/Shape.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Array/Nested/Mixed/Shape.hs b/src/Data/Array/Nested/Mixed/Shape.hs index 6846a8b..77256ab 100644 --- a/src/Data/Array/Nested/Mixed/Shape.hs +++ b/src/Data/Array/Nested/Mixed/Shape.hs @@ -292,7 +292,7 @@ ixxToLinear :: Num i => IShX sh -> IxX sh i -> i ixxToLinear = \sh i -> go sh i 0 where go :: Num i => IShX sh -> IxX sh i -> i -> i - go ZSX ZIX a = a + go ZSX ZIX !a = a go (n :$% sh) (i :.% ix) a = go sh ix (fromIntegral (fromSMayNat' n) * a + i) |