From 0f8db83a0c3043c7e8b7739b93e97de992c932d9 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sat, 14 Mar 2026 11:52:56 +0100 Subject: Fix typo and reword docs --- src/Data/Array/XArray.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/Data/Array/XArray.hs b/src/Data/Array/XArray.hs index 1a4ffbb..ee29ae9 100644 --- a/src/Data/Array/XArray.hs +++ b/src/Data/Array/XArray.hs @@ -302,7 +302,7 @@ sumOuter ssh ssh' arr arr -- | This creates an array from a list of arrays of one less dimension. --- The list is streamed, it's length is checked and it's verified +-- The list is streamed, its length is checked and it's verified -- that all arrays on the list have the same shape. {-# INLINE fromListOuterSN #-} fromListOuterSN :: forall n sh a. Storable a @@ -316,10 +316,8 @@ fromListOuterSN m sh l -- | This checks that the list has the given length and that all shapes in the -- list are equal. The list is streamed. --- We force the first array on the list early to free some previously used --- memory (a lot of memory if it triggers evaluation of a big tensor --- all list elements are made from) before @unsafeNew@ allocates --- a big chunk of memory again. +-- The first array in the list is forced early to potentially release some +-- memory, before allocating the (large) new array. {-# INLINEABLE ravelOuterN #-} ravelOuterN :: (KnownNat k, Storable a) => Int -> NonEmpty (S.Array k a) -> S.Array (1 + k) a -- cgit v1.2.3-70-g09d2