From: qrczak <unknown>
Date: Thu, 29 Mar 2001 08:03:47 +0000 (+0000)
Subject: [project @ 2001-03-29 08:03:47 by qrczak]
X-Git-Tag: Approximately_9120_patches~2258
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=32895cc4ae0479261018cafb6be10cbda9f75c4f;p=ghc-hetmet.git

[project @ 2001-03-29 08:03:47 by qrczak]
integralEnumFrom*To don't need Bounded.
---

diff --git a/ghc/lib/std/PrelReal.lhs b/ghc/lib/std/PrelReal.lhs
index a8e5651..7229c6a 100644
--- a/ghc/lib/std/PrelReal.lhs
+++ b/ghc/lib/std/PrelReal.lhs
@@ -1,5 +1,5 @@
 % ------------------------------------------------------------------------------
-% $Id: PrelReal.lhs,v 1.12 2001/03/28 22:14:02 qrczak Exp $
+% $Id: PrelReal.lhs,v 1.13 2001/03/29 08:03:47 qrczak Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -360,10 +360,10 @@ integralEnumFromThen n1 n2
     i_n1 = toInteger n1
     i_n2 = toInteger n2
 
-integralEnumFromTo :: (Integral a, Bounded a) => a -> a -> [a]
+integralEnumFromTo :: Integral a => a -> a -> [a]
 integralEnumFromTo n m = map fromInteger [toInteger n .. toInteger m]
 
-integralEnumFromThenTo :: (Integral a, Bounded a) => a -> a -> a -> [a]
+integralEnumFromThenTo :: Integral a => a -> a -> a -> [a]
 integralEnumFromThenTo n1 n2 m
   = map fromInteger [toInteger n1, toInteger n2 .. toInteger m]
 \end{code}