fixed

commit 1b2e9d72f98f67639b6ab8d2fa4cc4ee3a0141d9
parent 541746e1e80c91859550010c45853879c7065a88
Author: Jared Tobin <jared@jtobin.io>
Date:   Thu, 23 Jan 2025 10:20:16 +0400

lib: little-endian

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
@@ -556,7 +556,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 0 0 0 (a3 `quot` b3)
+  | is_word64 a           = Word256 (a3 `quot` b3) 0 0 0
   | otherwise = runST $ do
       quo <- PA.newPrimArray 4
       mx <- PA.newPrimArray 4