From 93e638b9fdf46cffb106ac6f647756bf693245e7 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Sat, 20 Dec 2025 12:09:56 +0100 Subject: Add a potentialy helpful bang for consistency --- src/Data/Array/Nested/Mixed/Shape.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Data/Array/Nested/Mixed/Shape.hs') 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) -- cgit v1.2.3-70-g09d2