Partial changes for derived newtype instances

[ghc-hetmet.git] / compiler / hsSyn / HsBinds.lhs

diff --git a/compiler/hsSyn/HsBinds.lhs b/compiler/hsSyn/HsBinds.lhs
index 940b6d3..8f9279e 100644 (file)
--- a/compiler/hsSyn/HsBinds.lhs
+++ b/compiler/hsSyn/HsBinds.lhs
@@ -316,7 +316,8 @@ data ExprCoFn
   | CoTyApps [Type]            -- [] t1 .. tn
   | CoLams [Id]                -- \x1..xn. []; the xi are dicts or coercions
   | CoTyLams [TyVar]           -- \a1..an. []
-  | CoLet (LHsBinds Id)                -- Would be nicer to be core bindings
+  | CoLet (LHsBinds Id)                -- let binds in []
+                               -- (ould be nicer to be core bindings)
 
 instance Outputable ExprCoFn where
   ppr CoHole        = ptext SLIT("<>")