From: ross <unknown>
Date: Fri, 19 Nov 2004 12:54:12 +0000 (+0000)
Subject: [project @ 2004-11-19 12:54:12 by ross]
X-Git-Tag: nhc98-1-18-release~180
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ae53922f396878fcb4b50a718cecfd097f537e71;p=ghc-base.git

[project @ 2004-11-19 12:54:12 by ross]
make instance Enum () conform to the Report (though I doubt anyone
will notice)
---

diff --git a/GHC/Enum.lhs b/GHC/Enum.lhs
index a0be9e1..4591bc8 100644
--- a/GHC/Enum.lhs
+++ b/GHC/Enum.lhs
@@ -140,9 +140,9 @@ instance Enum () where
 
     fromEnum () = zeroInt
     enumFrom () 	= [()]
-    enumFromThen () () 	= [()]
+    enumFromThen () () 	= let many = ():many in many
     enumFromTo () () 	= [()]
-    enumFromThenTo () () () = [()]
+    enumFromThenTo () () () = let many = ():many in many
 \end{code}
 
 \begin{code}