diff --git a/src/System/Random/SplitMix/Internal.hs b/src/System/Random/SplitMix/Internal.hs index c40e45196e14311b353f807b144bf8dac3f92865..b6b9a79e673d232729085c15c62f9cc5b9fdb4dd 100644 --- a/src/System/Random/SplitMix/Internal.hs +++ b/src/System/Random/SplitMix/Internal.hs @@ -90,7 +90,7 @@ type SplitMix64 = (# Word64# , Word64# #) data SplitMix64 = SplitMix64 { sm64seed :: {-# UNPACK #-} !Word64 ,sm64Gamma :: {-# UNPACK #-} !Word64 } - deriving (Eq,Read,Show,Data,Typeable) + deriving (Eq,Ord,Read,Show,Data,Typeable) advanceSplitMix :: SplitMix64 -> SplitMix64