diff options
| author | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2012-03-18 14:55:32 -0700 |
|---|---|---|
| committer | Iavor S. Diatchki <iavor.diatchki@gmail.com> | 2012-03-18 14:55:32 -0700 |
| commit | 9410a8da19336988f671c69427ec049f3579703e (patch) | |
| tree | dc99adc19af6bec119c0c8f5e6256415bc33188e /testsuite/tests/haddock | |
| parent | 08154fba79d9b3d32aa5d8085a911179d68efef0 (diff) | |
| download | haskell-9410a8da19336988f671c69427ec049f3579703e.tar.gz | |
Fixes to reflect changes in behavior of -XTypeOperators.
With the new behavior of -XTypeOperators, all infix type operators
refer to type constants, and not type variables. These changes
update the test-suite to reflect the new behavior (while trying to
preserve the "spirit" of the tests).
Diffstat (limited to 'testsuite/tests/haddock')
3 files changed, 5 insertions, 0 deletions
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.hs b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.hs index 2f4b7c1bcb..ff88ec70b2 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.hs +++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.hs @@ -1,5 +1,7 @@ module ShouldCompile where +data a <--> b = Mk a b + test :: [a] -- ^ doc1 -> a <--> b -> [a] -- ^ blabla diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.stderr index d74422461e..ae25b12000 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.stderr @@ -1,6 +1,7 @@ ==================== Parser ==================== module ShouldCompile where +data <--> a b = Mk a b test :: [a] <document comment> -> (a <--> (b -> [a])) <document comment> test xs ys = xs diff --git a/testsuite/tests/haddock/should_compile_noflag_haddock/haddockC028.hs b/testsuite/tests/haddock/should_compile_noflag_haddock/haddockC028.hs index 3f8abc19d3..bbf649d357 100644 --- a/testsuite/tests/haddock/should_compile_noflag_haddock/haddockC028.hs +++ b/testsuite/tests/haddock/should_compile_noflag_haddock/haddockC028.hs @@ -1,5 +1,7 @@ module ShouldCompile where +data a <--> b = Mk a b + test :: [a] -- ^ doc1 -> a <--> b -> [a] -- ^ doc3 |