[project @ 2002-01-22 13:35:36 by simonmar]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcTyClsDecls.lhs

diff --git a/ghc/compiler/typecheck/TcTyClsDecls.lhs b/ghc/compiler/typecheck/TcTyClsDecls.lhs
index c56cb3d..e2d2a93 100644 (file)
--- a/ghc/compiler/typecheck/TcTyClsDecls.lhs
+++ b/ghc/compiler/typecheck/TcTyClsDecls.lhs
@@ -130,7 +130,7 @@ The knot-tying parameters: @rec_details_list@ is an alist mapping @Name@s to
 \begin{code}
 tcGroup :: RecTcEnv -> Module -> SCC RenamedTyClDecl -> TcM TcEnv
 tcGroup unf_env this_mod scc
-  = getDOptsTc                                                 `thenTc` \ dflags ->
+  = getDOptsTc                                                 `thenNF_Tc` \ dflags ->
        -- Step 1
     mapNF_Tc getInitialKind decls                              `thenNF_Tc` \ initial_kinds ->