diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-05-16 11:54:41 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-05-16 11:54:41 +0200 |
| commit | 26b8f3c19cd919f5a45ef07e4ba76bae5cab35ce (patch) | |
| tree | 8c17db3c627b10807c2f19ba8cc0c83ec551c69e /src/Data/Array/Nested/Shaped/Base.hs | |
| parent | 09041ca155485885a2f337f71b04442e991a550d (diff) | |
Shape/index function rename
Diffstat (limited to 'src/Data/Array/Nested/Shaped/Base.hs')
| -rw-r--r-- | src/Data/Array/Nested/Shaped/Base.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Array/Nested/Shaped/Base.hs b/src/Data/Array/Nested/Shaped/Base.hs index 8f41455..ea9c24e 100644 --- a/src/Data/Array/Nested/Shaped/Base.hs +++ b/src/Data/Array/Nested/Shaped/Base.hs @@ -130,7 +130,7 @@ instance Elt a => Elt (Shaped sh a) where type ShapeTree (Shaped sh a) = (ShS sh, ShapeTree a) - mshapeTree (Shaped arr) = first shCvtXS' (mshapeTree arr) + mshapeTree (Shaped arr) = first shsFromShX (mshapeTree arr) mshapeTreeEq _ (sh1, t1) (sh2, t2) = sh1 == sh2 && mshapeTreeEq (Proxy @a) t1 t2 @@ -241,4 +241,4 @@ satan2Array = liftShaped2 matan2Array sshape :: forall sh a. Elt a => Shaped sh a -> ShS sh -sshape (Shaped arr) = shCvtXS' (mshape arr) +sshape (Shaped arr) = shsFromShX (mshape arr) |