X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FEnum.lhs;h=89c8b67341861c4e2d88cf50d858edf73d84f2e4;hb=9ecf132d64d35e5997c12286f509b2f8d7f2a7ef;hp=a0be9e1713bfc532e139cde5936bc2f280fc02f6;hpb=e5330268c78f1697c4f32c1e642e85c101b5112c;p=ghc-base.git

diff --git a/GHC/Enum.lhs b/GHC/Enum.lhs
index a0be9e1..89c8b67 100644
--- a/GHC/Enum.lhs
+++ b/GHC/Enum.lhs
@@ -1,5 +1,5 @@
 \begin{code}
-{-# OPTIONS -fno-implicit-prelude #-}
+{-# OPTIONS_GHC -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  GHC.Enum
@@ -14,6 +14,7 @@
 -- 
 -----------------------------------------------------------------------------
 
+-- #hide
 module GHC.Enum(
 	Bounded(..), Enum(..),
 	boundedEnumFrom, boundedEnumFromThen,
@@ -140,9 +141,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}