fixed

commit 1d33e73fea33c1012acb293b61f8012ee78a2be7
parent 1eb04cf02c46d52f770b2ccd7150c4120ef13202
Author: Jared Tobin <jared@jtobin.io>
Date:   Fri, 24 Jan 2025 21:19:10 +0400

lib: u suffices

Diffstat:
M
lib/Data/Word/Extended.hs
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/Data/Word/Extended.hs b/lib/Data/Word/Extended.hs
@@ -779,9 +779,9 @@ quotrem_knuth_gen u ulen d dlen = loop (ulen - dlen - 1) zero576 u where
   loop j !qacc !uacc
     | j < 0 = Word1152 qacc uacc
     | otherwise =
-        let !u_2 = sel576 uacc (j + dlen)
-            !u_1 = sel576 uacc (j + dlen - 1)
-            !u_0 = sel576 uacc (j + dlen - 2)
+        let !u_2 = sel576 u (j + dlen)
+            !u_1 = sel576 u (j + dlen - 1)
+            !u_0 = sel576 u (j + dlen - 2)
             !qhat
               | u_2 >= d_hi = 0xffff_ffff_ffff_ffff
               | otherwise   =