{-# 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
ltWord64 :: Word64 -> Word64 -> Word64
ltWord64 (W64# Word#
a#) (W64# Word#
b#) = Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int# -> Int64
I64# (Word# -> Word# -> Int#
ltWord# Word#
a# Word#
b#))
{-# INLINE ltWord64 #-}