diff options
Diffstat (limited to 'ghc/compiler/rename/RnExpr.lhs')
| -rw-r--r-- | ghc/compiler/rename/RnExpr.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs index 8a381e1e16..ad4a408590 100644 --- a/ghc/compiler/rename/RnExpr.lhs +++ b/ghc/compiler/rename/RnExpr.lhs @@ -18,7 +18,7 @@ module RnExpr ( #include "HsVersions.h" import {-# SOURCE #-} RnBinds ( rnBinds ) -import {-# SOURCE #-} RnSource ( rnHsSigType, rnHsType ) +import {-# SOURCE #-} RnSource ( rnHsSigType, rnHsPolyType, rnHsType ) import HsSyn import RdrHsSyn @@ -70,7 +70,7 @@ rnPat (VarPatIn name) rnPat (SigPatIn pat ty) | opt_GlasgowExts = rnPat pat `thenRn` \ (pat', fvs1) -> - rnHsType doc ty `thenRn` \ (ty', fvs2) -> + rnHsPolyType doc ty `thenRn` \ (ty', fvs2) -> returnRn (SigPatIn pat' ty', fvs1 `plusFV` fvs2) | otherwise |