Cleanup

* Change maintainer to libraries@haskell.org. For consistency with other
  libraries maintained by the Core Libraries Committee.

* Fold mkStdRNG and createStdGen into theStdGen. They were not exported from
  System.Random.

* Fix haddock warning about $intro not being defined.

System/Random.hs

@@ -42,8 +42,6 @@
 module System.Random
 	(
 
-	-- $intro
-
 	-- * Random number generators
 
 #ifdef ENABLE_SPLITTABLEGEN
@@ -255,7 +253,7 @@ The function 'mkStdGen' provides an alternative way of producing an initial
 generator, by mapping an 'Int' into a generator. Again, distinct arguments
 should be likely to produce distinct generators.
 -}
-mkStdGen :: Int -> StdGen -- why not Integer ?
+mkStdGen :: Int -> StdGen -- Haskell 98 report demands mkStdGen takes an Int.
 mkStdGen s = mkStdGen32 $ fromIntegral s
 
 {-
@@ -272,9 +270,6 @@ mkStdGen32 sMaybeNegative = StdGen (s1+1) (s2+1)
 	(q, s1) = s `divMod` 2147483562
 	s2      = q `mod` 2147483398
 
-createStdGen :: Integer -> StdGen
-createStdGen s = mkStdGen32 $ fromIntegral s
-
 {- |
 With a source of random number supply in hand, the 'Random' class allows the
 programmer to extract random values of a variety of types.
@@ -448,12 +443,6 @@ instance Random CDouble where
   -- random rng = case random rng of 
   -- 	         (x,rng') -> (realToFrac (x::Double), rng')
 
-mkStdRNG :: Integer -> IO StdGen
-mkStdRNG o = do
-    ct          <- getCPUTime
-    (sec, psec) <- getTime
-    return (createStdGen (sec * 12345 + psec + ct + o))
-
 randomBounded :: (RandomGen g, Random a, Bounded a) => g -> (a, g)
 randomBounded = randomR (minBound, maxBound)
 
@@ -564,8 +553,9 @@ getStdGen  = readIORef theStdGen
 
 theStdGen :: IORef StdGen
 theStdGen  = unsafePerformIO $ do
-   rng <- mkStdRNG 0
-   newIORef rng
+   (sec, psec) <- getTime
+   ct          <- getCPUTime
+   newIORef $ mkStdGen32 $ fromInteger (sec * 12345 + psec + ct)
 
 -- |Applies 'split' to the current global random generator,
 -- updates it with one of the results, and returns the other.

random.cabal

@@ -6,7 +6,7 @@ version:	1.1
 
 license:	BSD3
 license-file:	LICENSE
-maintainer:	core-libraries-committee@haskell.org
+maintainer:	libraries@haskell.org
 bug-reports:	https://github.com/haskell/random/issues
 synopsis:	random number library
 category:       System