diff options
| author | simonpj@microsoft.com <unknown> | 2007-06-21 14:11:14 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2007-06-21 14:11:14 +0000 |
| commit | f84fa8a30ce2ac0c5aab424fce1234ef4169f445 (patch) | |
| tree | 0dff258f7c31ad4db3a764dd5c366a95dd56f58a | |
| parent | e2b5796d58ffce3f62f71439df51932679ffb16c (diff) | |
| download | haskell-f84fa8a30ce2ac0c5aab424fce1234ef4169f445.tar.gz | |
Use the correct flag for controlling scoped type variables in an instance decl
| -rw-r--r-- | compiler/rename/RnSource.lhs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index 71415faefc..028970cfc1 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -378,11 +378,11 @@ type variable environment iff -fglasgow-exts \begin{code} extendTyVarEnvForMethodBinds tyvars thing_inside - = doptM Opt_GlasgowExts `thenM` \ opt_GlasgowExts -> - if opt_GlasgowExts then - extendTyVarEnvFVRn (map hsLTyVarName tyvars) thing_inside - else - thing_inside + = do { scoped_tvs <- doptM Opt_ScopedTypeVariables + ; if scoped_tvs then + extendTyVarEnvFVRn (map hsLTyVarName tyvars) thing_inside + else + thing_inside } \end{code} %********************************************************* |