Apply some hlint hints

1 files changed, 2 insertions, 2 deletions

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