[project @ 1996-04-05 08:26:04 by partain]

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

diff --git a/ghc/compiler/hsSyn/HsDecls.lhs b/ghc/compiler/hsSyn/HsDecls.lhs
index dad1f52..18f817a 100644 (file)
--- a/ghc/compiler/hsSyn/HsDecls.lhs
+++ b/ghc/compiler/hsSyn/HsDecls.lhs
@@ -161,7 +161,7 @@ data ConDecl name
                SrcLoc
 
   | RecConDecl name
-               [(name, BangType name)] -- list of "fields"
+               [([name], BangType name)]       -- list of "fields"
                SrcLoc
 
   | NewConDecl  name           -- newtype con decl