[project @ 2004-04-06 09:29:49 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsExpr.lhs

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 0350843..cedb95f 100644 (file)
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -665,7 +665,7 @@ dsRecStmt m_ty ds_meths stmts later_vars rec_vars rec_rets
                 | otherwise = noLoc $ LazyPat (noLoc $ TuplePat (map nlVarPat vars) Boxed)
 
        body = noLoc $ HsDo DoExpr (stmts ++ [return_stmt]) 
-                          [(n, nlHsVar id) | (n,id) <- ds_meths]       -- A bit of a hack
+                          [(n, HsVar id) | (n,id) <- ds_meths] -- A bit of a hack
                           (mkAppTy m_ty tup_ty)
 
        Var return_id = lookupReboundName ds_meths returnMName