fixed

commit a685da885259f2fa2d7bd5ca310268cdc4199321
parent 82e371cb2df34f563610c341f09658d3f084bb59
Author: Jared Tobin <jared@jtobin.io>
Date:   Thu, 23 Jan 2025 17:54:22 +0400

lib: small div fix

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

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Data/Word/Extended.hs b/lib/Data/Word/Extended.hs
@@ -549,7 +549,7 @@ div :: Word256 -> Word256 -> Word256
 div a@(Word256 a0 a1 a2 a3) b@(Word256 b0 b1 b2 b3)
   | is_zero b || b `gt` a = zero -- ?
   | a == b                = one
-  | is_word64 a           = Word256 (a3 `quot` b3) 0 0 0
+  | is_word64 a           = Word256 (a0 `quot` b0) 0 0 0
   | otherwise = runST $ do
       quo <- PA.newPrimArray 4
       PA.setPrimArray quo 0 4 0