From 8c27d35a43a18c7c169ea67ba131b94f10c4b25b Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sat, 14 Mar 2026 11:52:03 +0100 Subject: Variable naming and doc comments --- src/Data/Array/Nested/Mixed.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Data/Array/Nested') diff --git a/src/Data/Array/Nested/Mixed.hs b/src/Data/Array/Nested/Mixed.hs index 16d5ffa..fe47cac 100644 --- a/src/Data/Array/Nested/Mixed.hs +++ b/src/Data/Array/Nested/Mixed.hs @@ -916,9 +916,9 @@ mfromList1PrimN n l = mfromList1PrimSN :: PrimElt a => SNat n -> [a] -> Mixed '[Just n] a mfromList1PrimSN sn l = - let ssh = SKnown sn :$% ZSX + let sh = SKnown sn :$% ZSX xarr = X.fromList1SN sn l - in fromPrimitive $ M_Primitive ssh xarr + in fromPrimitive $ M_Primitive sh xarr mfromListPrimLinear :: forall sh a. PrimElt a => IShX sh -> [a] -> Mixed sh a mfromListPrimLinear sh l = -- cgit v1.2.3-70-g09d2