[project @ 1999-01-23 18:10:00 by sof]

[ghc-hetmet.git] / ghc / tests / codeGen / should_run / cg040.hs

diff --git a/ghc/tests/codeGen/should_run/cg040.hs b/ghc/tests/codeGen/should_run/cg040.hs
index b2592f0..d747d4a 100644 (file)
--- a/ghc/tests/codeGen/should_run/cg040.hs
+++ b/ghc/tests/codeGen/should_run/cg040.hs
@@ -8,9 +8,9 @@ f1 :: Int -> Burble Int
 f1 n = B1 { op1 = \x->x+n, op2 = \x -> x, op3 = n }
 
 f2 :: Burble a -> Int -> Int
-f2 r@(B1 {op1, op2}) n = op1 (op2 n) + op3 r
+f2 r@(B1 {op1 = op1 , op2 = op2 }) n = op1 (op2 n) + op3 r
 
 f3 :: Burble a -> Burble a
-f3 x@(B1 {op3}) = x {op3 = op3+1}
+f3 x@(B1 {op3=op3}) = x {op3 = op3+1}
 
 main = print (f2 (f3 (f1 3)) 4)