diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-05-26 17:06:11 +0200 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2017-05-28 12:53:57 +0200 |
| commit | 3b23f680c2b1f80b693eb8896fb21e4bbf8edc7e (patch) | |
| tree | 45dd95b517b0050ccfde463c10938321e1da75e4 /testsuite/tests/haddock/should_compile_flag_haddock | |
| parent | 09d5c993aae208e3d34a9e715297922b6ea42b3f (diff) | |
| download | haskell-3b23f680c2b1f80b693eb8896fb21e4bbf8edc7e.tar.gz | |
Remove HsContext from ppr_mono_ty, and remove ppParendHsType
This is a cleanup after Trac #13238, as the context was no longer being used.
Diffstat (limited to 'testsuite/tests/haddock/should_compile_flag_haddock')
6 files changed, 7 insertions, 7 deletions
diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA023.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA023.stderr index c0233de0d5..fcb953a495 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA023.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA023.stderr @@ -1,7 +1,7 @@ ==================== Parser ==================== module ShouldCompile where -test :: (Eq a) => ([a] doc1) -> ([a] doc2 ) -> [a] doc3 +test :: (Eq a) => [a] doc1 -> [a] doc2 -> [a] doc3 test xs ys = xs diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA024.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA024.stderr index f1db2374b1..9f57f5df07 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA024.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA024.stderr @@ -1,7 +1,7 @@ ==================== Parser ==================== module ShouldCompile where -test2 :: (a doc1 ) -> (b doc2 ) -> a doc 3 +test2 :: a doc1 -> b doc2 -> a doc 3 test2 x y = x diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA025.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA025.stderr index 4b208f858a..472ec1a1eb 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA025.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA025.stderr @@ -1,7 +1,7 @@ ==================== Parser ==================== module ShouldCompile where -test2 :: (a doc1 ) -> a +test2 :: a doc1 -> a test2 x = x diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA026.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA026.stderr index fcf9e0c2d6..5f7335b6b9 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA026.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA026.stderr @@ -2,7 +2,7 @@ ==================== Parser ==================== module ShouldCompile where test :: - (Eq a) => ([a] doc1) -> forall b. ([b] doc2 ) -> [a] doc3 + (Eq a) => [a] doc1 -> forall b. [b] doc2 -> [a] doc3 test xs ys = xs diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA027.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA027.stderr index cd8884080f..e7707c5ec0 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA027.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA027.stderr @@ -2,9 +2,9 @@ ==================== Parser ==================== module ShouldCompile where test :: - ([a] doc1) + [a] doc1 -> forall b. - (Ord b) => ([b] doc2 ) -> forall c. (Num c) => ([c] doc3) -> [a] + (Ord b) => [b] doc2 -> forall c. (Num c) => [c] doc3 -> [a] test xs ys zs = xs diff --git a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.stderr b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.stderr index 9e1edc661b..47d2468ea5 100644 --- a/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.stderr +++ b/testsuite/tests/haddock/should_compile_flag_haddock/haddockA028.stderr @@ -2,7 +2,7 @@ ==================== Parser ==================== module ShouldCompile where data a <--> b = Mk a b -test :: ([a] doc1 ) -> a <--> b -> [a] blabla +test :: [a] doc1 -> a <--> b -> [a] blabla test xs ys = xs |