git.iko.soy/typeable/uuid
on master help sign in
commenting out re-write rules
commit9c1f9a1808189f5183ae698c0353d55ea2d3990b authoraslatter <aslatter@gmail.com> dateSun 28 Sep 2008, 23:49 (18 years ago) parent3124bcc
1 file changed+5−5
compare with master
unifiedsplit
Data/UUID.hs+5−5
Data/UUID.hs+5−5
@@ -284,12 +284,12 @@ high8 :: Word16 -> Word8
284284high8 = fromIntegral . flip shiftR 4
285285
286286-- this may be overkill ...
287−{-# RULES
287+{- RULES
288288 "low8/low16" forall x . low8 (low16 x) = fromIntegral (x .&. 0x000000FF)
289− "high8/low16" forall x . high8 (low16 x) = fromIntegral (shiftR (x .&. 0x0000FF00) 4)
290− "low8/high16" forall x . low8 (high16 x) = fromIntegral (shiftR (x .&. 0x00FF0000) 8)
291− "high8/high16" forall x . high8 (high16 x) = fromIntegral (shiftR x 12)
292− #-}
289+ "high8/low16" forall x . high8 (low16 x) = fromIntegral (shiftR (x .&. 0x0000FF00) 8)
290+ "low8/high16" forall x . low8 (high16 x) = fromIntegral (shiftR (x .&. 0x00FF0000) 16)
291+ "high8/high16" forall x . high8 (high16 x) = fromIntegral (shiftR x 24)
292+ -}
293293
294294unsafeFromString :: String -> UUID
295295unsafeFromString = fromJust . fromString