gistfile1.hs

import qualified Random

-- randomEnum :: (Enum a, Bounded a) => IO a                   
randomEnum = do                                                
  let minBoundInt = fromEnum (minBound::a)                     
  let maxBoundInt = fromEnum (maxBound::a)                     
  randomInt <- Random.randomRIO (minBoundInt, maxBoundInt)     
  return $ toEnum randomInt


Util.hs:15:31:
    No instance for (Bounded a)
      arising from a use of `minBound'
    In the first argument of `fromEnum', namely `(minBound :: a)'
    In the expression: fromEnum (minBound :: a)
    In an equation for `minBoundInt':
        minBoundInt = fromEnum (minBound :: a)