From b0cc8caff4ccf5df85f3bea743be1f03ddde01c6 Mon Sep 17 00:00:00 2001
From: Mikolaj Konarski <mikolaj.konarski@funktory.com>
Date: Sun, 14 Dec 2025 16:55:45 +0100
Subject: Fix f in SMayNat to always be SNat and UNPACK it

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

(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 54b2a9f..eb05eaa 100644
--- a/src/Data/Array/Nested/Mixed.hs
+++ b/src/Data/Array/Nested/Mixed.hs
@@ -816,7 +816,7 @@ mappend arr1 arr2 = mlift2 (snm :!% ssh) f arr1 arr2
     sn :$% sh = mshape arr1
     sm :$% _ = mshape arr2
     ssh = ssxFromShX sh
-    snm :: SMayNat () SNat (AddMaybe n m)
+    snm :: SMayNat () (AddMaybe n m)
     snm = case (sn, sm) of
             (SUnknown{}, _) -> SUnknown ()
             (SKnown{}, SUnknown{}) -> SUnknown ()
-- 
cgit v1.2.3-70-g09d2