diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-11-26 22:58:47 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-11-26 22:58:47 +0100 |
| commit | 14327cb54fb3ba7ae81c00d7865c47cdd8ec9578 (patch) | |
| tree | e8d9c0da83238612f2db64cd55421f4d28e369b6 /src/Data/Array/Nested/Mixed/Shape.hs | |
| parent | 829109ba73211394691d5789f35a23120feaf3f6 (diff) | |
Diffstat (limited to 'src/Data/Array/Nested/Mixed/Shape.hs')
| -rw-r--r-- | src/Data/Array/Nested/Mixed/Shape.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Data/Array/Nested/Mixed/Shape.hs b/src/Data/Array/Nested/Mixed/Shape.hs index f127e3a..23c3abf 100644 --- a/src/Data/Array/Nested/Mixed/Shape.hs +++ b/src/Data/Array/Nested/Mixed/Shape.hs @@ -261,6 +261,7 @@ ixxZipWith :: (i -> j -> k) -> IxX sh i -> IxX sh j -> IxX sh k ixxZipWith _ ZIX ZIX = ZIX ixxZipWith f (i :.% is) (j :.% js) = f i j :.% ixxZipWith f is js +{-# INLINEABLE ixxFromLinear #-} ixxFromLinear :: IShX sh -> Int -> IIxX sh ixxFromLinear = \sh -> -- give this function arity 1 so that suffixes is shared when it's called many times let suffixes = drop 1 (scanr (*) 1 (shxToList sh)) |