0c1fde27f090cc9df72b64f057560135404022d56dca7827e243c23ec479942f

Download raw

Created: 2019-10-12 06:53:48.403379 UTC

Size: 437

Preview (limited to 512 bytes)

"{-# LANGUAGE MagicHash #-}\n\nmodule Data.HashMap.UnsafeShift\n ( unsafeShiftL\n , unsafeShiftR\n ) where\n\nimport GHC.Exts (Word(W#), Int(I#), uncheckedShiftL#, uncheckedShiftRL#)\n\nunsafeShiftL :: Word -> Int -> Word\nunsafeShiftL (W# x#) (I# i#) = W# (x# `uncheckedShiftL#` i#)\n{-# INLINE unsafeShiftL #-}\n\nunsafeShiftR :: Word -> Int -> Word\nunsafeShiftR (W# x#) (I# i#) = W# (x# `uncheckedShiftRL#` i#)\n{-# INLINE unsafeShiftR #-}\n"


A service provided by FP Complete