Simon Hengel sol
sol
/ gist:1807031
Created
February 12, 2012 07:17
— forked from mklinik/gist:1803869
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE ScopedTypeVariables #-} | |
| import qualified Random | |
| randomEnum :: forall a. (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 |