diff options
Diffstat (limited to 'src/Data/Array/Nested/Mixed/Shape.hs')
| -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 302a0fb..a69f4bb 100644 --- a/src/Data/Array/Nested/Mixed/Shape.hs +++ b/src/Data/Array/Nested/Mixed/Shape.hs @@ -251,7 +251,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) {-# INLINEABLE ixxFromLinear #-} |