git.iko.soy/typeable/uuid
on master help sign in
fix bit-shifting in V1 generation
cb4b691aslatter
Data/UUID/V1.hs+1−1
compare with master
unifiedsplit
@@ -56,7 +56,7 @@ word64ToTimePieces :: Word64 -> (Word32, Word16, Word16)
56word64ToTimePieces w = (lo, mi, hi)
56word64ToTimePieces w = (lo, mi, hi)
57 where
57 where
58 lo = fromIntegral $ (w `shiftL` 32) `shiftR` 32
58 lo = fromIntegral $ (w `shiftL` 32) `shiftR` 32
59− mi = fromIntegral $ (w `shiftL` 16) `shiftR` 32
59+ mi = fromIntegral $ (w `shiftL` 16) `shiftR` 48
60 hi = (fromIntegral $ w `shiftR` 48) `setBit` 15
60 hi = (fromIntegral $ w `shiftR` 48) `setBit` 15
61
61
62
62