diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/typecheck/should_fail/tcfail177.hs')
-rw-r--r-- | testsuite/tests/ghc-regress/typecheck/should_fail/tcfail177.hs | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail177.hs b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail177.hs deleted file mode 100644 index d9e60e96fc..0000000000 --- a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail177.hs +++ /dev/null @@ -1,34 +0,0 @@ -module ShouldFail where - --- See Trac #1176 --- This is really a pretty-printer test, not a typechecker test --- The more infix ops we have, the worse fsep works - --- Currently the error message looks ok, however - -allTests :: Bool -allTests = foo - [a ~?= b - ,"Three" ~?= "3" - ,"Four" ~?= "4" - ,"Five" ~?= "5" - ,"Five" ~?= "5" - ,"Five" ~?= "5" - ,"Five" ~?= "5" - ,"Five" ~?= "5" - ,"Five" ~?= "5" - ,"Two", "Two", "Two" - ,"Two", "Two", "Two" - ,"Two", "Two", "Two" - ,"Two", "Two", "Two" - ,"Two", "Two", "Two" - ,"Two", "Two", "Two"] - -a="" -b="" - -(~?=) :: a -> a -> Bool -(~?=) = error "urk" - -foo :: a -> Int -foo x = 0 |