[project @ 2001-08-22 11:45:06 by sewardj]

[ghc-hetmet.git] / ghc / tests / deSugar / should_run / dsrun006.hs

diff --git a/ghc/tests/deSugar/should_run/dsrun006.hs b/ghc/tests/deSugar/should_run/dsrun006.hs
index 0bcda96..759c9c5 100644 (file)
--- a/ghc/tests/deSugar/should_run/dsrun006.hs
+++ b/ghc/tests/deSugar/should_run/dsrun006.hs
@@ -27,7 +27,7 @@ fails with:
 
 data X = A {a :: Int} | B {a :: Int}
 
-f x = let A {a} = x
+f x = let A {a=a} = x
       in a
 
 main = print (f (A {a = 3}))