diff options
| author | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2025-12-21 00:06:17 +0100 |
|---|---|---|
| committer | Mikolaj Konarski <mikolaj.konarski@funktory.com> | 2026-02-12 10:16:29 +0100 |
| commit | 44d15b0b38d00df5dece3cba0a9dc749371aceb0 (patch) | |
| tree | 02514b6e8474408c85b24bf3f36defee2810b190 | |
| parent | 5cd6f90954cf67da6de03c6f255d0f4442a71ec5 (diff) | |
Make it clear that ravelOuterN is called just once
| -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 |