From ae53922f396878fcb4b50a718cecfd097f537e71 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Fri, 19 Nov 2004 12:54:12 +0000
Subject: [PATCH] [project @ 2004-11-19 12:54:12 by ross] make instance Enum
 () conform to the Report (though I doubt anyone will
 notice)

---
 GHC/Enum.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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}
-- 
1.7.10.4