diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-07-09 20:02:49 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-07-09 20:02:49 +0000 |
| commit | 090663ac597eaa54ae854572b862cf4d386270b1 (patch) | |
| tree | f40774c9bdaf7492987530552b8022e82bc15775 | |
| parent | 3092ace710af6d63ea57394eba91d4edc5b7cb91 (diff) | |
| download | haskell-090663ac597eaa54ae854572b862cf4d386270b1.tar.gz | |
Just alpha-rename a variable
| -rw-r--r-- | compiler/typecheck/TcTyClsDecls.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/typecheck/TcTyClsDecls.lhs b/compiler/typecheck/TcTyClsDecls.lhs index 9e302c3a61..35b7d24324 100644 --- a/compiler/typecheck/TcTyClsDecls.lhs +++ b/compiler/typecheck/TcTyClsDecls.lhs @@ -241,9 +241,9 @@ tcFamInstDecl (L loc decl) tcAddDeclCtxt decl $ do { -- type families require -ftype-families and can't be in an -- hs-boot file - ; gla_exts <- doptM Opt_TypeFamilies + ; type_families <- doptM Opt_TypeFamilies ; is_boot <- tcIsHsBoot -- Are we compiling an hs-boot file? - ; checkTc gla_exts $ badFamInstDecl (tcdLName decl) + ; checkTc type_families $ badFamInstDecl (tcdLName decl) ; checkTc (not is_boot) $ badBootFamInstDeclErr -- perform kind and type checking |