From 96795853db5a3ee85d7c838a508b4153988e6042 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Fri, 16 Jan 2026 19:14:20 +0100
Subject: C: Fix REDUCEFULL

Only the last inner vector was kept...
---
 ops/Data/Array/Strided/Arith/Internal.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'ops/Data')

diff --git a/ops/Data/Array/Strided/Arith/Internal.hs b/ops/Data/Array/Strided/Arith/Internal.hs
index d94fc65..7578dd8 100644
--- a/ops/Data/Array/Strided/Arith/Internal.hs
+++ b/ops/Data/Array/Strided/Arith/Internal.hs
@@ -396,6 +396,7 @@ vectorRedInnerOp sn@SNat valconv ptrconv fscale fred array@(Array sh strides off
             Nothing -> error "impossible"
 
 -- TODO: test handling of negative strides
+-- TODO: simplify away normalised dimensions
 -- | Reduce full array
 {-# NOINLINE vectorRedFullOp #-}
 vectorRedFullOp :: forall a b n. (Num a, Storable a)
-- 
cgit v1.2.3-70-g09d2