[project @ 2003-11-13 15:02:25 by simonpj]

[ghc-hetmet.git] / ghc / compiler / parser / RdrHsSyn.lhs

diff --git a/ghc/compiler/parser/RdrHsSyn.lhs b/ghc/compiler/parser/RdrHsSyn.lhs
index feee920..7d51a54 100644 (file)
--- a/ghc/compiler/parser/RdrHsSyn.lhs
+++ b/ghc/compiler/parser/RdrHsSyn.lhs
@@ -360,6 +360,8 @@ hsIfaceDecl (TyClD decl@(TyData {}))
                ifCtxt = hsIfaceCtxt (tcdCtxt decl),
                ifCons = Unknown, ifRec = NonRecursive,
                ifVrcs = [], ifGeneric = False }
+       -- I'm not sure that [] is right for ifVrcs, but
+       -- since we don't use them I'm not going to fiddle
 
 hsIfaceDecl (TyClD decl@(ClassDecl {}))
   = IfaceClass { ifName = rdrNameOcc (tcdName decl),