hpqtypes-1.5.1.1: test/Test/QuickCheck/Compat.hs

{-# LANGUAGE CPP #-}
module Test.QuickCheck.Compat (
    QCGen
  , newQCGen
  , mkQCGen
  ) where

#if MIN_VERSION_QuickCheck(2,7,0)

import Test.QuickCheck.Random

#else

import System.Random

type QCGen = StdGen

newQCGen :: IO QCGen
newQCGen = newStdGen

mkQCGen :: Int -> QCGen
mkQCGen = mkStdGen

#endif