diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-21 00:06:17 +0100 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2026-01-31 13:45:30 +0100 |
| commit | f2fc68369262ee48bbb55a2cb1e9aa4325757e3d (patch) | |
| tree | 6766267b978bafacfa941040c34db63f5650f561 /src/Data/Array | |
| parent | 93e638b9fdf46cffb106ac6f647756bf693245e7 (diff) | |
Make it clear that ravelOuterN is called just once
Diffstat (limited to 'src/Data/Array')
| -rw-r--r-- | src/Data/Array/XArray.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Data/Array/XArray.hs b/src/Data/Array/XArray.hs index 1445ce6..588b712 100644 --- a/src/Data/Array/XArray.hs +++ b/src/Data/Array/XArray.hs @@ -313,11 +313,10 @@ fromListOuter ssh l = case ssh of _ :!% ZKX -> fromList1 ssh (map S.unScalar l') - SKnown m :!% _ -> - let n = fromSNat' m - in XArray (ravelOuterN n l') _ -> - let n = length l + let n = case ssh of + SKnown m :!% _ -> fromSNat' m + _ -> length l in XArray (ravelOuterN n l') -- | This checks that the list has the given length and that all shapes in the |