git.iko.soy/typeable/uuid
on master help sign in
fix setting the version in V3 and V5 UUIDs
7589b09aslatter
Data/UUID/Internal.hs+1−1
compare with master
unifiedsplit
@@ -78,7 +78,7 @@ versionMask :: Word16 -- 0000 1111 1111 1111
78versionMask = 0x0FFF
78versionMask = 0x0FFF
79
79
80versionRandom :: Word16
80versionRandom :: Word16
81−versionRandom = shiftL 12 4
81+versionRandom = 4 `shiftL` 12
82
82
83reservedMask :: Word8 -- 0011 1111
83reservedMask :: Word8 -- 0011 1111
84reservedMask = 0x3F
84reservedMask = 0x3F
Data/UUID/V5.hs+1−1
@@ -81,7 +81,7 @@ low8 = fromIntegral . (.&. 0x00FF)
81high8 :: Word16 -> Word8
81high8 :: Word16 -> Word8
82high8 = fromIntegral . flip shiftR 8
82high8 = fromIntegral . flip shiftR 8
83
83
84−versionSHA = shiftL 12 5
84+versionSHA = 5 `shiftL` 12
85
85
86unsafeFromString :: String -> UUID
86unsafeFromString :: String -> UUID
87unsafeFromString = fromJust . fromString
87unsafeFromString = fromJust . fromString