fix setting the version in V3 and V5 UUIDs
commit7589b0909d3235e9e14aeb52337213d9856e922b
authoraslatter <aslatter@gmail.com>
dateSun 5 Oct 2008, 15:03 (18 years ago)
parent9514a10
Data/UUID/Internal.hs+1−1
@@ -78,7 +78,7 @@ versionMask :: Word16 -- 0000 1111 1111 1111
7878versionMask = 0x0FFF
7979
8080versionRandom :: Word16
81−versionRandom = shiftL 12 4
81+versionRandom = 4 `shiftL` 12
8282
8383reservedMask :: Word8 -- 0011 1111
8484reservedMask = 0x3F
Data/UUID/V5.hs+1−1
@@ -81,7 +81,7 @@ low8 = fromIntegral . (.&. 0x00FF)
8181high8 :: Word16 -> Word8
8282high8 = fromIntegral . flip shiftR 8
8383
84−versionSHA = shiftL 12 5
84+versionSHA = 5 `shiftL` 12
8585
8686unsafeFromString :: String -> UUID
8787unsafeFromString = fromJust . fromString