Add type signatures to avoid type class defaults 2009-06-25
authorsimonpj@microsoft.com <unknown>
Fri, 29 May 2009 08:39:58 +0000 (08:39 +0000)
committersimonpj@microsoft.com <unknown>
Fri, 29 May 2009 08:39:58 +0000 (08:39 +0000)
System/Random.hs

index 3de9269..b84ddc9 100644 (file)
@@ -277,12 +277,14 @@ instance Random Char where
 
 instance Random Bool where
   randomR (a,b) g = 
 
 instance Random Bool where
   randomR (a,b) g = 
-      case (randomIvalInteger (toInteger (bool2Int a), toInteger (bool2Int b)) g) of
+      case (randomIvalInteger (bool2Int a, bool2Int b) g) of
         (x, g') -> (int2Bool x, g')
        where
         (x, g') -> (int2Bool x, g')
        where
+         bool2Int :: Bool -> Integer
          bool2Int False = 0
          bool2Int True  = 1
 
          bool2Int False = 0
          bool2Int True  = 1
 
+        int2Bool :: Int -> Bool
         int2Bool 0     = False
         int2Bool _     = True
 
         int2Bool 0     = False
         int2Bool _     = True