-- missing StdGen instances
module System.Random.Instances where

import System.Random
import Data.Binary

-------------------------------

instance Eq StdGen where 
    _ == _ = True -- error "Eq StdGen instance not defined"

instance Ord StdGen where 
    _ < _ = error "Ord StdGen instance not defined"

instance Binary StdGen where
    put = put . show
    get = fmap read get