From: simonpj <unknown>
Date: Tue, 18 May 1999 15:17:58 +0000 (+0000)
Subject: [project @ 1999-05-18 15:17:58 by simonpj]
X-Git-Tag: Approximately_9120_patches~6198
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3f694c56bd5e30ac60cc26645e53ab865ff14d39;p=ghc-hetmet.git

[project @ 1999-05-18 15:17:58 by simonpj]
SMALL TYPECHECKER FIXES

[The real commit preceded this, but had the stupid message "RULES-NOTES"
 because I used "cvs commit -m" instead of "cvs commit -F"]

1. Allow type synonyms with kind other than '*'

2. Check that the default methods declared in a class decl are
   from that class decl
---

diff --git a/ghc/compiler/typecheck/TcInstDcls.lhs b/ghc/compiler/typecheck/TcInstDcls.lhs
index 3333d42..2f14a7b 100644
--- a/ghc/compiler/typecheck/TcInstDcls.lhs
+++ b/ghc/compiler/typecheck/TcInstDcls.lhs
@@ -4,10 +4,7 @@
 \section[TcInstDecls]{Typechecking instance declarations}
 
 \begin{code}
-module TcInstDcls (
-	tcInstDecls1,
-	tcInstDecls2
-    ) where
+module TcInstDcls ( tcInstDecls1, tcInstDecls2 ) where
 
 #include "HsVersions.h"