diff options
| -rw-r--r-- | compiler/types/Type.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/types/Type.lhs b/compiler/types/Type.lhs index d34a64c465..590819443c 100644 --- a/compiler/types/Type.lhs +++ b/compiler/types/Type.lhs @@ -681,7 +681,7 @@ typePrimRep ty = case repType ty of \begin{code} mkForAllTy :: TyVar -> Type -> Type mkForAllTy tyvar ty - = mkForAllTys [tyvar] ty + = ForAllTy tyvar ty -- | Wraps foralls over the type using the provided 'TyVar's from left to right mkForAllTys :: [TyVar] -> Type -> Type |