sha512

commit 173b675f6cf4aee754dcab2d607c340eaa9aaf41
parent 8fa68ca2fcfc589e7716be9162e2fef52293516a
Author: Jared Tobin <jared@jtobin.io>
Date:   Fri, 15 May 2026 19:23:49 -0230

lib: prettify block

Diffstat:
M
lib/Crypto/Hash/SHA512/Internal.hs
 | 
24
++++++++----------------

1 file changed, 8 insertions(+), 16 deletions(-)
diff --git a/lib/Crypto/Hash/SHA512/Internal.hs b/lib/Crypto/Hash/SHA512/Internal.hs
@@ -812,22 +812,14 @@ parse_vsb (R v0 v1 v2 v3 v4 v5 v6 v7) (GHC.Word.W8# sep) dat =
       !(GHC.Word.W8# b4) = BU.unsafeIndex dat 4
       !(GHC.Word.W8# b5) = BU.unsafeIndex dat 5
       !(GHC.Word.W8# b6) = BU.unsafeIndex dat 6
-      !w08 =
-            Exts.uncheckedShiftL# (Exts.word8ToWord# sep) 56#
-            `Exts.or#`
-            Exts.uncheckedShiftL# (Exts.word8ToWord# b0) 48#
-            `Exts.or#`
-            Exts.uncheckedShiftL# (Exts.word8ToWord# b1) 40#
-            `Exts.or#`
-            Exts.uncheckedShiftL# (Exts.word8ToWord# b2) 32#
-            `Exts.or#`
-            Exts.uncheckedShiftL# (Exts.word8ToWord# b3) 24#
-            `Exts.or#`
-            Exts.uncheckedShiftL# (Exts.word8ToWord# b4) 16#
-            `Exts.or#`
-            Exts.uncheckedShiftL# (Exts.word8ToWord# b5) 8#
-            `Exts.or#`
-            Exts.word8ToWord# b6
+      !w08 =       Exts.uncheckedShiftL# (Exts.word8ToWord# sep) 56#
+        `Exts.or#` Exts.uncheckedShiftL# (Exts.word8ToWord# b0)  48#
+        `Exts.or#` Exts.uncheckedShiftL# (Exts.word8ToWord# b1)  40#
+        `Exts.or#` Exts.uncheckedShiftL# (Exts.word8ToWord# b2)  32#
+        `Exts.or#` Exts.uncheckedShiftL# (Exts.word8ToWord# b3)  24#
+        `Exts.or#` Exts.uncheckedShiftL# (Exts.word8ToWord# b4)  16#
+        `Exts.or#` Exts.uncheckedShiftL# (Exts.word8ToWord# b5)  08#
+        `Exts.or#` Exts.word8ToWord# b6
   in  B v0 v1 v2 v3 v4 v5 v6 v7
         (Exts.wordToWord64# w08)
         (word64be dat 07) (word64be dat 15) (word64be dat 23)