From 933153197b3f2e1e75b8d88b0da6d99a41e8f471 Mon Sep 17 00:00:00 2001 From: Mikolaj Konarski Date: Tue, 7 Apr 2026 16:39:01 +0200 Subject: Apply some hlint hints --- src/Data/Array/Nested/Mixed.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Data/Array/Nested/Mixed.hs') diff --git a/src/Data/Array/Nested/Mixed.hs b/src/Data/Array/Nested/Mixed.hs index 2a8311f..b036203 100644 --- a/src/Data/Array/Nested/Mixed.hs +++ b/src/Data/Array/Nested/Mixed.hs @@ -755,13 +755,13 @@ instance (KnownShX sh', KnownElt a) => KnownElt (Mixed sh' a) where -- that index in the vectors. {-# INLINE mvecsWrite #-} mvecsWrite :: Elt a => IShX sh -> IIxX sh -> a -> MixedVecs s sh a -> ST s () -mvecsWrite sh idx val vecs = mvecsWriteLinear (ixxToLinear sh idx) val vecs +mvecsWrite sh idx = mvecsWriteLinear (ixxToLinear sh idx) -- | Given the shape of this array, an index and a value, write the value at -- that index in the vectors. {-# INLINE mvecsWritePartial #-} mvecsWritePartial :: forall sh sh' s a. Elt a => IShX sh -> IIxX sh -> Mixed sh' a -> MixedVecs s (sh ++ sh') a -> ST s () -mvecsWritePartial sh idx val vecs = mvecsWritePartialLinear (Proxy @sh) (ixxToLinear sh idx) val vecs +mvecsWritePartial sh idx = mvecsWritePartialLinear (Proxy @sh) (ixxToLinear sh idx) -- TODO: should we provide a function that's just memptyArrayUnsafe but with a size==0 check? That may save someone a transpose somewhere memptyArray :: forall sh a. KnownElt a => IShX sh -> Mixed (Just 0 : sh) a -- cgit v1.3