From 64c47540bdcf764f6ac3644cabac00e9605c3fa7 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Mon, 30 Jun 2025 10:44:10 +0200
Subject: Fix rerank docs

---
 src/Data/Array/Nested/Shaped.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Data/Array/Nested/Shaped.hs')

diff --git a/src/Data/Array/Nested/Shaped.hs b/src/Data/Array/Nested/Shaped.hs
index 2b0b6b5..198a068 100644
--- a/src/Data/Array/Nested/Shaped.hs
+++ b/src/Data/Array/Nested/Shaped.hs
@@ -191,6 +191,7 @@ srerankP sh sh2 f sarr@(Shaped arr)
                      (\a -> let Shaped r = f (Shaped a) in r)
                      arr)
 
+-- | See the caveats at 'Data.Array.XArray.rerank'.
 srerank :: forall sh1 sh2 sh a b. (PrimElt a, PrimElt b)
         => ShS sh -> ShS sh2
         -> (Shaped sh1 a -> Shaped sh2 b)
-- 
cgit v1.2.3-70-g09d2