fixed

commit e4cbf237656fdfd86d2ba866e92dd67ebe54414a
parent f95b817154edd563077aeba17316203f8f4a9d7d
Author: Jared Tobin <jared@jtobin.io>
Date:   Sat,  6 Dec 2025 17:07:44 +0400

lib: remove superfluous pattern match

Diffstat:
M
lib/Data/Word/Wider.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/Data/Word/Wider.hs b/lib/Data/Word/Wider.hs
@@ -314,9 +314,9 @@ sub_mod#
   -> (# Limb, Limb, Limb, Limb #) -- ^ modulus
   -> (# Limb, Limb, Limb, Limb #) -- ^ difference
 sub_mod# a b (# p0, p1, p2, p3 #) =
-  let !(# (# o0, o1, o2, o3 #), m #) = sub_b# a b
+  let !(# o, m #) = sub_b# a b
       !ba = (# L.and# p0 m, L.and# p1 m, L.and# p2 m, L.and# p3 m #)
-  in  add_w# (# o0, o1, o2, o3 #) ba
+  in  add_w# o ba
 {-# INLINE sub_mod# #-}
 
 sub_mod