diff options
author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-04-03 21:13:48 +0100 |
---|---|---|
committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-04-03 21:13:48 +0100 |
commit | 52103425e6d621523fb0ed5b5b83c2588cacc7b6 (patch) | |
tree | 0ecb2f2243a4d55f4ee8802919538d464a916b31 /html-test/src/Minimal.hs | |
parent | c2a1f755565008efbee80cdd51eabeeb0606fe51 (diff) |
Update test cases for GHC bug #8945, Haddock #188
The order of signature groups has been corrected upstream. Here we add a
test case and update some existing test-cases to reflect this change. We
remove grouped signature in test cases that we can (Minimal,
BugDeprecated &c) so that the test is as self-contained as possible.
Diffstat (limited to 'html-test/src/Minimal.hs')
-rw-r--r-- | html-test/src/Minimal.hs | 25 |
1 files changed, 19 insertions, 6 deletions
diff --git a/html-test/src/Minimal.hs b/html-test/src/Minimal.hs index cd2df930..9df03cca 100644 --- a/html-test/src/Minimal.hs +++ b/html-test/src/Minimal.hs @@ -10,7 +10,9 @@ module Minimal class Foo a where -- | Any two of these are required... - foo, bar, bat :: a + foo :: a + bar :: a + bat :: a -- | .. or just this fooBarBat :: (a,a,a) @@ -18,23 +20,34 @@ class Foo a where {-# MINIMAL (foo, bar) | (bar, bat) | (foo, bat) | fooBarBat #-} class Weird a where - a,b,c,d,e,f,g :: a + a :: a + b :: a + c :: a + d :: a + e :: a + f :: a + g :: a {-# MINIMAL ((a, b), c | (d | (e, (f | g)))) #-} class NoMins a where - x,y,z :: a + x :: a + y :: a + z :: a -- | Has a default implementation! z = x class FullMin a where - aaa,bbb :: a + aaa :: a + bbb :: a class PartialMin a where - ccc,ddd :: a + ccc :: a + ddd :: a class EmptyMin a where - eee,fff :: a + eee :: a + fff :: a eee = fff fff = undefined |