{-# LANGUAGE CPP #-} {-# LANGUAGE MagicHash #-} module HaskellWorks.Data.Word ( ltWord64 ) where import Data.Word import GHC.Int import GHC.Prim import GHC.Word hiding (ltWord64) ltWord64 :: Word64 -> Word64 -> Word64 #if MIN_VERSION_base(4,17,0) ltWord64 (W64# a#) (W64# b#) = fromIntegral (I# (ltWord64# a# b#)) #else ltWord64 :: Word64 -> Word64 -> Word64 ltWord64 (W64# Word# a#) (W64# Word# b#) = forall a b. (Integral a, Num b) => a -> b fromIntegral (Int# -> Int64 I64# (Word# -> Word# -> Int# ltWord# Word# a# Word# b#)) #endif {-# INLINE ltWord64 #-}