{-# 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 #-}