@@ -1,4 +1,4 @@
1−{-# LANGUAGE FlexibleInstances, FlexibleContexts, TupleSections #-}
1+{-# LANGUAGE CPP, FlexibleInstances, FlexibleContexts, TupleSections #-}
22
33module Main where
44
@@ -311,6 +311,7 @@ integralRandomR (a,b) g = case randomR (fromIntegral a :: Integer,
311311 fromIntegral b :: Integer) g of
312312 (x,g) -> (fromIntegral x, g)
313313
314+{-
314315instance Random Word where
315316 randomR = integralRandomR
316317 random = randomR (minBound,maxBound)
@@ -330,3 +331,4 @@ instance Random Word32 where
330331instance Random Word64 where
331332 randomR = integralRandomR
332333 random = randomR (minBound,maxBound)
334+-}