Commit d4c076e1 authored by ross's avatar ross
Browse files

[project @ 2004-11-19 12:54:12 by ross]

make instance Enum () conform to the Report (though I doubt anyone
will notice)
parent e0d161fa
......@@ -119,9 +119,9 @@ Testing Enum ():
(toEnum 1)::() = error "Prelude.Enum.().toEnum: bad argument"
(fromEnum ()) = 0
(take 7 [()..]) = [()]
(take 7 [(),()..]) = [()]
(take 7 [(),()..]) = [(),(),(),(),(),(),()]
(take 7 [()..()]) = [()]
(take 7 [(),()..()]) = [()]
(take 7 [(),()..()]) = [(),(),(),(),(),(),()]
Testing Enum Ordering (derived):
(succ LT) = EQ
(succ (minBound::Ordering)) = EQ
......
......@@ -103,9 +103,9 @@ Testing Enum ():
(toEnum 1)::() = error "Prelude.Enum.().toEnum: bad argument"
(fromEnum ()) = 0
(take 7 [()..]) = [()]
(take 7 [(),()..]) = [()]
(take 7 [(),()..]) = [(),(),(),(),(),(),()]
(take 7 [()..()]) = [()]
(take 7 [(),()..()]) = [()]
(take 7 [(),()..()]) = [(),(),(),(),(),(),()]
Testing Enum Ordering (derived):
(succ LT) = EQ
(succ (minBound::Ordering)) = EQ
......
......@@ -103,9 +103,9 @@ Testing Enum ():
(toEnum 1)::() = error "Prelude.Enum.().toEnum: bad argument"
(fromEnum ()) = 0
(take 7 [()..]) = [()]
(take 7 [(),()..]) = [()]
(take 7 [(),()..]) = [(),(),(),(),(),(),()]
(take 7 [()..()]) = [()]
(take 7 [(),()..()]) = [()]
(take 7 [(),()..()]) = [(),(),(),(),(),(),()]
Testing Enum Ordering (derived):
(succ LT) = EQ
(succ (minBound::Ordering)) = EQ
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment