diff options
Diffstat (limited to 'testsuite/tests/ghc-regress/deSugar/should_run/dsrun006.hs')
| -rw-r--r-- | testsuite/tests/ghc-regress/deSugar/should_run/dsrun006.hs | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/testsuite/tests/ghc-regress/deSugar/should_run/dsrun006.hs b/testsuite/tests/ghc-regress/deSugar/should_run/dsrun006.hs deleted file mode 100644 index 759c9c542d..0000000000 --- a/testsuite/tests/ghc-regress/deSugar/should_run/dsrun006.hs +++ /dev/null @@ -1,33 +0,0 @@ -{- -Date: Tue, 20 May 1997 05:10:04 GMT -From: Tomasz Cholewo <tjchol01@mecca.spd.louisville.edu> - -ghc-2.03 cannot compile the following code, which I think is correct -according to the Report - - data X = A {a :: Int} | B {a :: Int} - -The error message is: - - Conflicting definitions for: a - Defined at bug4.lhs:2 - Defined at bug4.lhs:2 - -In addition the following snippet - - data X = A {a :: Int} - y = let A {a} = x - in a - -fails with: - - bug4.lhs:4:5: Not a valid LHS on input: "in" --} ---module Main(main) where - -data X = A {a :: Int} | B {a :: Int} - -f x = let A {a=a} = x - in a - -main = print (f (A {a = 3})) |